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This manual is to be used with the Data Language /I Disk Operating System /Virtual 
Storage (DL/I DOS/VS) Logic Manual, Volume 1, LY12-5016, and program 
listings for DL/l DOS/vs. It contains the HIPO diagrams that illustrate the program 
logic described in Volume 1. It is intended for use by persons involved in program 
maintenance and by system programmers who are altering the program design. 

DL/l DOS/VS is a data management control system that assists the user in creating, 
accessing, and maintaining large common data bases. In conjunction with the 
Customer Information Control System (Cics/vs), dl/i dos/vs can be used in an 
online teleprocessing environment. 

Because DL/l DOS/vs is a functional subset of the IBM Information Management 
System/Virtual Storage (IMS/VS), some specific IMS or OS terms are used in this 
manual. These terms are used to allow easy reference to the documentation of the 
related systems. 

This manual contains only "Section 2: Method of Operation" which consists of 
HIPO diagrams that describe the dl/i modules. The diagrams include cross 
reference to labels in the program listings. 

Because Section 2 was formerly a part of Volume 1, considerable cross reference 
exists between other sections of Volume 1 and Section 2. The figure numbering 
system has been retained for Section 2 to ensure credibility of cross references 
found in Volume 1. 
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Section 2: Method of Operation 

This section contains hipo (Hierarchy, plus Input, Process, Output) diagrams. 

The three areas of each hipo diagram are, from left to right, the input area, process 
area, and output area. Read the diagrams beginning with the process area. This 
describes a function that is performed. Arrows leading from the input area show 
what, if any, input is used to perform that function. Arrows leading to the output 
area show what output, if any, is produced. 

At the bottom of each hipo diagram is an area called "extended descriptions." This 
area contains comments not included in the process area of the diagram. For most 
items in the process area, extended description items with the same numbers give 
details that cannot be easily shown in diagram form or in the space allowed. 

Various forms of arrows represent different usage conventions. Also, items are often 
boxed in to show that they are related to the same function. Figure 2-1 shows the 
conventions used in the hipo diagrams. 

Figure 2-2 is a visual table of contents with figure numbers. The figure numbers refer 
to the hipo diagrams. 
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Figure 2-1. Guide to Reading Method of Operation Diagrams 
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Figure 2-2. Visual Table of Contents for DL/I DOS/VS HiPO Charts 
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Figure 2-3. Batch Initialization (Overview) 

From VSE 
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1. Enter batch initialization. 
(See Figure 2-3.1) 

2. Begin batch partition control. 
(See Figure 2-3.2) 

3. Parameter scan and validation. 
(See Figure 2-3.3) 

4. Begin application program control. 
(See Figure 2-3.4) 

5. Utility block build request handler. 
(See Figure 2-3.5) 

6. Complete application program control. 
(See Figure 2-3.6) 



7. Block loader and relocator. 
(See Figure 2-3.7) 



8. Complete control program initialization. 
(See Figure 2-3.8) 



9. DL/I control card analyze routine. 
(See Figure 2-3.9) 
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Figure 2-3.1. Batch Initialization Entry (DLZRRCOO) 



Figure 2-3.2. Batch Partition Control (DLZRRC10) 
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1 . DLZBNUCO load address is set at 
DLZRRCOO start + X'100'. 



3. The reserved space allows loading 
of DLZBNUCO without overlaying 
critical code in this module. 
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Figure 2-3.3 Parameter Scan and Validation (DLZRRC10) 
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Figure 2-3.4. Application Program Control (DLZRRC10) (Part 1 of 2) 



Figure 2-3.4. Application Program Control (DLZRRCIO) (Part 2 of 2) 
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Figure 2-3.5. Utility Block Build Request Entry (DLZRRC10) 



Figure 2-3.6. Application Program Control Completion (DLZRRC10) 
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Figure 2-3.7. Block Loader and Relocator (DLZRRC10) (Part 1 of 5) 
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Extended Description 




LabeJ 


5. 


DLZPINIT 


PCBPLIB 


6. The call sensitivity and data 
base organization of the SDB 
is checked to see if buffer pool 
space is required. An indicator 
in the DDIR is turned on if 
space is required. 




SDBRELO 


7. The pointer to the PSBLIST 
is bumped to the next PCB 
pointer entry and processing 
returns to Step 4 if we are not 
at the last PCB. 




NPCBCK 


If the index PCB exists, return 
to Step 5 and relocate it. 






8. Write mess^e DLZ012I if the 
DMB is not found. 




jOADDMBS 
DMBLOADB 


Write message DLZOlSIif the 
DMB version/modification level 
is incorrect. 











Label 


If the DMB is not found and 
the parameter identifier is ULU 
for a logical relationship utility, 
set a block load error indicator 
and return to Figure 2-3.5, 
Step 3. 

9. Ifbuffer pool space is required, 
the size of each control interval 
(rounded to the next multiple 
of 512) is indicated in PSTWRKl 
and PSTWRK2 for later allocation 
of the buffer pool. 




GETBUFRS 
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Figure 2-3.7. 


Block Loader and Relocator (DLZRRC10) (Part 3 of 5) 










iraruT 




> 10. Load Randomizing Module if 
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SCDDLIUP 




organization is HDAM. Z- 
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m/ggm LOAD Macro (Directory Entry) 
JBBUI^ load Macro 




SCD 
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DACS 




1 DMBDANME 










DMB DDIR .=^1 






1 DMBORG 1 


DDIRADDR M 


► 11. Adjust offsets In DMB to , 








DDIRLEN 1 


addresses for each valid DDIR. 
At end of DDIRs, go to Step 15. 

12. Build VSAM Exit List, RPL, and — 
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ll 


SCO ACBXT 1 










1 SCDDLIUP 


DMBINDO 
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RPL 




DMBACBNM 
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flBH^ GENCB BLK=RPL Macro 
mKttt^ GENCB BLK=EXLST Macro 
M|^^ GENCB BLK°=ACB Macro 
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DMB 






1 DMBORG 


ACBXT .SCD .,., II 




DMBACBAD 


1 SCDDLIUP 1 


DMBACBRP 




DMBACBEX 










1 II SCDDLIUP j 
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•■■^ LOAD Macro (Directory Entry) 
^■■^ LOAD Macro 
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Compression Routine 


DMBLENTB 




DMBSECTB 


PSDB CPAC 






PSDB 


DMBFDBA 


DMBCPEP 1 
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DMBCPRES 1 
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Routine 


Label 


10. Before loading the randomizer a 


DLZPINIT 


RANCKLUP 


check is made with all currently 






loaded randomizers. If one with 






the same name as the one we are 






loading is found, the entry point 






is resolved and the actual load is 






bypassed. 






Return to Step 8 until there are 






no more DDIRs. 






Write message DLZ012I if the ran- 






domizing module is not found. 









Routine 


Label 


11. The DTF address constants are 




DMBOFFAJ 


adjusted if access is HSAM or 






simple HSAM. 






1 2. If HISAM, two sets of control 




DLZBVBLD 


blocks will be built. 






13. The segment compression routine 




PSDBROUT 


for each PSDB is loaded (if it 






hasn't already been loaded for a 






previous PSDB). 






Write message DLZ012I if the 






compression routine is not found. 







Figure 2-3.7. Block Loader 

■i INPUT MMia^i-iB-i— M 



and Relocator (DLZRRC10) (Part 4 of 5) 
■• PROCESS ' 



DMBXDSDB 



DMBXMXNM 
DMBXMRES 



Q 

VSE 
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Image 
Library 



PDIR PSB 

PDIRADDR I PSBLIST I 



\ SCDINDZ I 



■ !! ^ 15. Connect data bases to PCBs. 



DSGDMBNO 



DSGDCBNO 




14. Process secondary list if 
present for each PSDB. 

^HH^ LOAD Macro (Directory Entry) 
^Hl^ LOAD Macro 

Return to Step 11. 



16. Connect SDBs to PSDBs. 



:> 



DL/I Partition 



Index Exit Routine 



DMBXDSDB 



SCD 
l?gDDLIUP I 



I DBPCBPRO I DSGDCBA 
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SDBDDIR 
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Label 


14. If a secondary list is present, 
its code is tested and referenced 
DMBs are resolved to DDIR 
pointers and placed in the list. 


DLZPINIT 


PROCSEC 


If an index user exit routine is 
present it is loaded if it hasn't 
already been loaded for a 
previous SEC. 






Write message DLZ266I if there 
is an invalid secondary list code. 






Write message DLZ012I if the 
user exit routine is not found. 






Write message DLZ263I if the 
SEC makes an invalid DMB 
reference. 







Extended Descriptio. 



15. If this is Reload Restart, 
the parameter ID is ULR. 
Bypass checking whether 
the processing option should 
be changed to load or not. 

16. 
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Figure 2-3.7. Block Loader and Reiocator (DLZRRC10) (Part 5 of 5) 

p INPUT «Ma»Ma>aBB^H>« p PROCESS ■— a-aa-^-i-i^ 
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PSBFRTA 



' -> 17. Initialize field level sensitivity tables. 
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Extended Description 
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17. Includes FERT, FSB, and loading user 
field exit routines. 
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Figure 2-3.8. Control Program Initialization Completion (DLZRRC10) (Part 1 of 3) 
INPUT I ^™7^2.3 p- PROCESS. 
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Directory 


PSTWRK3 
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1. Acquire storage for the buffer 
pool prefix and subpool informa- 
tion table. If subpools are not 
required, skip to Step 8. 



2. Analyze and interpret the 
following parameters in the 
DL/I parameter card: 

HDBFR HSBFR TRACE ASLOG LOG 



SCD 

>[SCDDBFPL_J 



DL/I Control 
Card Analyze 
Routine 

2-3.9 



■; ^ 3. Format the buffer pool prefix. 



f^ 4. Store buffer sizes in subpool 

information table. 



PEIB 

Ipdircode I 



SUBBDMBCT 



Figure 2-3.8. Control Program initialization Completion (DLZRRC10) (Part 2 of 3) 

p INPUT aiMMB^— mi^^ ■■ PROCESS ■— ^— 



BFPL 




BFPLSUBD 


SCDDLIDM 


BFPLSUIN 


SCDDLIDN 




bfplprad 


SUBBFNO 


BFPLSUIN 


SUBBFS12 



5. Assign DMBs not previously 
assigned to subpools by HDBFR 



6. Print subpool allocation 
statistics. 



^ 7. Format buffer prefixes and 
allocate I/O buffers. 



8. Bypass DL/I load processing if 
they have once been loaded. 
Skip to Step 13. 



ACBXT 

IdmbrbasnH 



DMB 

Subpool 

Directory 



BFFRADDR 
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Routine 


Label _ 


1. 




BFRPRNT 


2. Write message DLZ009I if number 




BFPNOCLR 


of subpools specified in the param- 




PRMSRET 


eter statement are not equal to the 






number of HDBFR statements. 






3. 




BFPREADY 


4. This step determines the size of the 




NODMMOV 


subpools. They are allocated, largest 






first, until the specified number is 






exhausted. Remaining DMBs requir- 






ing subpools are assigned evenly 






across all existing subpools. If you 






specified more subpools than 






necessary, an additional pool of 






512 buffer size is allocated for 






delete workspace. 






The subpool sizes are sorted so that 






the largest subpool appears first in 






the information table. 







Ex^end^d Desc^ription 
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DLZRRCIO - Batch Partition Control CSECT 
xtended Description 



5. Write message DLZ262I if buffer 
allocation error occurs. 



SPSTAT 
BFRINIT 
DLILOAD 



ixtended Description 



DLZRRCOO 

Routine^^^Label 
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Figure 2-3.8. Control Program Initialization Completion (DLZRRC10) (Part 3 of 3) 

r INPUT I r PROCESS »»— — ii^^-^-_»-«- 



DLZDBHOO 
DLZDLROO 
DLZDLAOO 
DLZRDBLO 
DLZDLDOO 
DLZDDLEO 
DLZDHDSO 
DLZDXMTO 
DLZDLOCO 
DLZDSEHO 
DLZSTRBO 









Core Image Library 



I RETRGSV p 



9. Load each DL/I facility module 
if required and not in SVA. 



> 10. Load FLS module if needed. 



11. Load the trace module if needed. 

#■1^ DLZTRCAL 



12. Initialize DB logging. 



13. Write log schedule record. 



LOGWRITE 
Only 
Entry Point 



•^% 14. Return to caller. 
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Routine 


Label 


9. 




^fUCLODUC 


1 1 . Issue macro DLZTRCAL TYPE=START 
foUowing the load. Trace ID=X'FE'. 




L0AD9 


Write message DLZ026I if initiaUzation 
fails. 







Extended Descfiptlon 



DLZCPY10 Module 



JSCDCPYIO I 



Trace Module 



iCB 



12. Cancel if open error returned. Upon 
return, the entry points to DLZRDBLO 
in the 'Data Base Change Log Section' 
of the SCD (beginning with the 
SCDREENT) are initialized. 

13. The schedule record ID='08'. 

14. Return is made to the instruction 
foUowing the BALRto DLZPINIT. 




NOLOMOD 
PCCORET 
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Hgura 2-3.9. DL/I Control Card Anaiyie Routine (DLZRRCOO) 



IsUBPOOLN I ■ 



SBiF 

ISUBLEN I 



ICNTHDI 



■ ► 2. Interpret the HSBFR statement 



Q 




r-> 



I 



1. Interpret the HDBFR 



3. Interpret the TRACE 

^mP LOAD 



Macro (DiractDrY Entry) 



4. Interpret the ASLOG statement. 
^ 5. Interpret the LOG statement. 



SUBPOOLN I ICNTHDMB 



DMB 

Sutapool 

Oiractofy 



FND I 
FNI J 



I SCDTRCNM \\ TRACSAvH 



Z^ I SCDOBLOP I 



Extended Description 


Routine 


Label 


1. The number of buffers/subpools 


NXTPORT 


NXTPORT 


specified in the HDBFR statement 




HDBFR 


is set in the SBIF. Write message 






DLZ019I if the number is greater 






than 32 or less than 2. Defauh is 2. 






The SUBPOOLN is incremented 1 






for every HDBFR statement. Each 






DMB is assigned by placing the 






relative subpool number (SUBPOOLN) 






it is being assigned to into a byte of 






the DMB SUBP DIR which corre- 






sponds to that DMB. The length in 






bytes of the DMB SUBP DIR equals 






the total number of DMBs. Write 






message DLZl 1 71 if this DMB has 






already been assigned a subpool. 






CNTHDMB is a count of all the data 






bases assigned by the user in the 






HDBFR statements. 









Routine 


Label 


Write message DLZl 1 51 if a DMB 
name is invalid. 






2. The user specified VSAM buffer 
allocations are set in the ACB for 
mSAM and INDEX DBDs. 




HSBFR 


Write message DLZl 151 for an 
invalid DMB reference. Write 
message DLZ019I if vaUd values 
were not specified. 






3. Write message DLZ012I if module 
is not found. 




TRACE 


4. Write message DLZOl 51 if there 




ASLOG 


is a syntax error. 






5. Write message DLZ078I if UPSl 
card said no log. 




LOG 


Write message DLZ075I if invalid 






parameters. 
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Figure 2-4. Batdi Nucleus (Overview) 



DL/I 

Facility 

Modules 



1. Batch Program Request Handler 
(See Figure 2-4.1) 

2. Partition ABEND Routine Entry 
(See Figure 2-4.2) 



3. DL/I Batch Wait Routine 



4. Branch instruction used if 
no logging. 



[ 

I 



3 
s. 
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Routine 


Label 


3. The DLZIWAIT macro is used by 


DLZIWAIT 


DLZIWAIT 


DLZRDBHOO, DLZDBH02 and 






DLZRDBU). 






4. After the DLZBNUCO module is 


DLZBR14 


DLZBR14 


loaded, SCDDBLNT contains the 






entry point of this routine. 






If, however, batch initialization 






(DLZRRCOO) determines that the 






DB logger is required, the entry 






point of the log initiahzation 






routine in DLZRDBLO is stored in 






SCDDBLNT. The log initialization 






routine changes SCDDBLNT once 






more to point to the log writer 






entry point. 






With this routine, the DL/I 






facility modules need not know 






if logging is required or not. 
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Figure 2-4.1. Batch Program Request Handler (SCDCSECT) 
p INPUT — —-i— i 



PPSTCA - ' — 



SCDLOWER 



Parameter ; ► 3. Verify call list and store in PST. 



>■ 1. Establish SCD and PST addressability. 



>■ 2. Determine if this is an utility block build 
call. If it is, go to Figure 2-3.5. If it is not, 
continue at Step 3. 



4. Pass control to call analyzer to validate and 
perform DL/I function. 



> 5. If no errors are detected upon return from 
DLZDLAOO, move data to specified area. 



6. If an error has occurred upon return from 
DLZDLAOO: 



> PSTLIPRM 



Error Message 
Writer 
2-3.1 




Abnormal 
Termination 

2-4.2 



[sod 



I PSTPCT2 " 



I PSTSV1 
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Extended Description 


Routine 


Label 


Note: This routine receives control from 
the language interface module (DLZLIOOO) 
linked with the application program. 






1 . When control is passed to the program 
request handler, register 1 must point 
to the user parameter list and register 
13 to the user save area. 


DLZPRHBO 


DLZPRHBO 


During the first entry to DLZPRHBO, 
the PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZPRHBO also 
sets/resets a switch (SCDUPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or 
PL/I code. This is done to enable high 

give diagnostic information if a program 
check occurs in PL/I code. 






Reset PC exits if this is a PL/I applica- 
tion. 






2. I 




BYPLSTXT 


3. Write message DLZ260I if invalid Ust 




CNTLUP 





Routine 


Label 


count. Write message DLZ261I if 
invalid parameter address. Then exit to 
DLZABEND. 

4. 

5. Write message DLZ105I if a checkpoint 
was taken. 

6. If a DL/I routine determined that DL/I 
should be terminated, go to the 
common error message routine to write 
an error message using the message 
number stored in PSTERCOD by the 
DL/I routine. 




MOVLUPBP 
PRHABEND 
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Figure 2-4.2 


Partition ABEND Routine Entry (SCDCSECT) (Part 1 of 2) 














From Caller 
(See Note) 


1. Establish SCD address. 

2. Force write and close data 








r^ 




SCDDBLOP 
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LOGOUT 






SCDDBLFW 






SCDDBLCL 


BALR 


DLZRDBLO 




Force Write 
Entry Point 
















BALR 


DLZRDBLO 




Close Routine 
Entry Point 
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^3. Close workf ile if required. 






SCD , 




SCDDSEHO 












- « 1 1 


SCDSIND2 


Wf/t^ CLOSE Macro 

^4. Bypass unloading the buffers if 
there was an error with the 
buffer handler; skip to Step 9. 
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ABIND 
PST 




PSTFNCTN 




f 5 Issue message DLZ001I 
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**DL/I ABEND 
SAVE AREA** 




PSTRTCDE 




DLZRRCOO 






PSTOFFST 


Error Message 
Writer 2-3.1 








PSTBLKNM 




PSTBYTNM 








PSTDATA 


> 6. Bypass unloading the buffers if 
VSAM is active; skip to Step 9. 








PST ACBEXT 
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Figure 2-4.2. Partition ABEND Routine Entry (SCDCSECT) (Part 2 of 2) 
■■ INPUT ^MBMiHHMiHiH ai PROCESS ^— — i^— 




7. Issue UN LD call. 



8. Issue message DLZ002I. 



9. If no dump wanted 



1. If I DUMP is on system 

IDUMP ^^^ DLZTRCAL 

^■^ TYPE=STOP Macro 

Cancel. 



. Load and execute the formatted 
system dump program if required. 



y GETVIS Macro 



LOAD MACRO 



Formatted 
System Dump 
Program 



\ JDUMP Macro 
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SCDCSECT - Batch Nucleus CSECT 
■xtended Description 



Note: The ABEND routine is invoked 
by the VSE supervisor if (1) there 
is a program check or other ABEND 
situation found by VSE (2) if 
the job is being abnormally ended by 
a DL/I routine that determines DL/I 
should be abnormally ended, or (3) 
specifically by the buffer handler 
when there is an error concerning 
buffers. 

1. If there is a program check, DLZABEND 
checks the switch (SCDLIPLI flag in 
SCD) set by DLZPRHBO to determine if 
program check occurred in PL/I code. 
If error occurred while in PL/I code 
(SCDLIPLI= 1), a return address is 
modified and a branch is made to PL/I 
STXIT PC routine. (The address of the 
PL/I STXIT PC routine was saved during 




Extended Description 



DLZBNUCO 

Routine 



the first entry to DLZPRHBO - see 
Figure 2-4.4, Step 1.) After PL/I 
completes diagnostic information, 
processing returns to the modified 
address in DLZABEND. 

3. If the HD reorganization reload module 
(DLZURGLO) is running for either a 
standard reload or a reload restart, close 
the workfile generator file if it is open. 

4. 




ABLOGCBP 
RELODCBP 



extended Description 
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Label 


7. 




ABUNLD 


9. 




ABBYMSG 


10. DLZIDUMP macro determines if 




DLZIDUMP 


IDUMP is available. 






11. The GETVIS macro is used to 




ABBYMSG 


acquire storage for DLZFSDPO. 






If there is not enough storage 






available to DLZFSDPO, only 






JDUMP output is put to SYSLST. 
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Figure 2-5. Online Initialization (Overview) 

INPUT ■^■^■"■^■^^ From 

CICS/VS 
Overlay 
Supervisor 



1. Online initialization start. 
(See Figure 2-5.1) 

2. PSB processing. 
(See Figure 2-5.2) 

3. DMB processing. 
(See Figure 2-5.3) 

4. Control program initialization. 
(See Figure 2-5.4) 

5. DMB open processing and online 
initialization completion. 

(See Figure 2-5.5) 




■ OUTPUT ^^ 

CICS/VS 










DLZOLIOOvrnp 


DLZOLIOOvrnp is the module 
identifier where V is the version, 
V is the release, 'n' is an additional 
identification digit, and 'p' is the 
latest PTF number that has iseen 
applied. 



Extended Description 



1. 

2. 
3. 
4. 
5. 
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DLZCPIOO 
DMBOPENA 
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Figure 2-5.1. Online Initialization Start (DLZOLIOO) 
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CSAOPFLA 1 




ENDSAVE 
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CSADLI J 1 














SIP 






ENDSAVE 






LNGTHSAV 




COMREG 














UPSI 




SCD 






SCDPRHED 








SCDLSTAD 
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SIP 




PST 
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ISIPCORE 


PSTLNGTH 1 






PPST 






PPSTLEN 1 
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Extended Description 
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R2 




CICSAVAR 1 


ISCD 




> 1 . Establish addressability to 

CICS/VS control blocks and SCD. 
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INITSZSV 






R11 


INITUPSV 
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ISIP 






R13 


NUCAD 1 


ICSA 
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SCDDATE 




CSADLI I 


J> 2. Initialize online nucleus. 




SCDIWAIT 
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SCDERRMS 


DOS/VS 1 
COMREG 1 


^HH^ MVCOM Macro 


SCDCSABA 


SCDSIND 






SCDCWRK 




PRHEP 1 


11 
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PPST • 




PST 






"Z^ 1 PPSTECB 




PSTPREAD 


^ 3 Build temporary PST and PPST 
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Figure 2-5 
Step 2 




PPSTCA 


PSTSCDAD 


used during initialization. 1 


PPSTID 


PSTSV1 


BALR 










PSTSV2 


SIPCORE 






PSTSV3 


CICS/VS 
GETMAIN Routine 


PSTSV4 


PSTSV5 








PSTSV6 
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PSTSV7 















1. Module identifier (DLZOLIOOvrnp) is 
defined here. 

Upon entry from the CICS/VS Overlay 
Supervisor, SIPBAR2 contains the 
overlay entry point, and SIPBARl 
contains the SIP common communications 
area. The current storage allocation infor- 
mation is saved in order to release storage 
if DL/I initialization fails. 
The DL/I systems contents directory is 
located from the CSADLI field in the CSA 
optional features list (CSAOPFL). 
Write Message DLZ0311 if program isola- 
tion is being used and CICS/VS journal- 
ling is not being used. 
Write message DLZ118I to indicate the 
DL/I online initialization is starting. 

2. CSADLI is modified to point to the DL/I 
interface module address list, (DFHDLIAL 
DSECT), which is a table of entry points 
for the task initiation module and the task 
and system termination routines. 



Extended Description 



SCDSIND is initialized with bits 6 and 7 of 
the UPSI switch from the COMREG. The 
program request handler entry point is 
moved to byte 16 of the COMREG and 
temporary entry points are established for 
the error message routine and the DL/I wait 
routine. Also, SCDCWRK is initialized at 
this time to point to the beginning of the 
low end of free storage. 

3. The PST and PPST are built directly after 
the initialization overlay high storage ad- 
dress. The save areas are chained and 
SCDCWRK is updated to indicate the new 
upward core allocation starting address. A 
dummy task ID of '01' is set in the PPST. 
Since a DL/I task with its associated PST is 
not yet involved, a temporary PST is needed 
to provide work space and save areas during 
the execution of this module. 




PSTPPST 



Figure 2-5.2. 
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> 2. Initialize PDIR. 
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► 3. Check PCBs sensitivity. 
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Extended Description 



1. The PDIR address is located in the SCD 
and each local PSB is loaded temporarily, 
directly behind the dummy PST. The 
PSIL entries that indicate the DMBs 
which may be used by this PSB are 
loaded along with the PSB. They are 
appended in front of the PSB. If PSB 
initialization is successful, it vnH be 
moved up prior to completion of 
initialization. 

Write message DLZ044I if the PSB is 

not found. 

Note: The PSB that is loaded originally 
contains more information than is 
required during DL/I execution. There- 
fore, the PSB is loaded, the length of the 

execution-time section of the PSB is 
calculated, storage is acquired for the 
execution-time PSB, and that section of 
the PSB is moved into the GETMAINed 
area. Also,workareasarenot inthe 
core image library version of the PSB. 
They are added to the size of the 
GETMAIN. 

2. Write message DLZ07 1 1 if the PSB is 
not version/modification 1 .1 or later. 



Extended 



^escrigtio 



3 . All the SDBs for each PCB in a PSBLIST 
are tested for correct processings options. 
Indicators are set in the corresponding 
PDIR entry, PSIL entry, and the SCD to 
indicate intent. The corresponding SIL 
entry is found by using the offset value 
found in DSGDMBNO. 

Write message DLZ042I if a PSB accesses 
a HSAM DBD online. 
Write message DLZ043I if load sensitivity 
is detected. A PSB contains a PCB with 
PROCOPT=L which is invalid online. 

4. The PSILs are moved from the temporary 
position and as they are moved, the size 
of each entry is increased by the size of 
PSILSEGD to allow for the segment intent 
bits mask copy. For program isolation, 
non-exclusive intent bits are translated to 
read-only to allow simultaneous schedul- 
ing of update-sensitive segments. All the 
DSGDMBNOs are adjusted to show the 
new offset. Also, each PSILLNGH is 
adjusted to show each new PSIL entry 
length as each entry is moved. 

Return is made to Step 1 to repeat this 
routine for PSB until mere are no more. 
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> 2. Build a DDIR if the DMB does n 
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set to 1. 


GETCORE 
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> 4. Load and relocate each DMB. 
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Figure 2-5.3. DMB Processing (DLZOLIOO) (Part 2 of 3) 
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ISCDEXTBA 1 


DMBORG 
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DMBUSBFR 


SCDEXT 


DMBACBNM 


|SCDEVSEX 1 



5. Scan HSBFR entries in ACT. 



6. Adjust offsets in DMB to 
addresses for eadt valid DDIR. 

At end of DDIRs go to Figure 
2-5, Step 4. 



7. Build VSAM RPL, Exit List, and ACBs. 



■ ^ DMBVSBFR I 
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1 . Hie PSILs aie scanned for DMB names 
and a DDIR is created for each unique 
DMB encountered. The address of the 
DDIR reidaces the respective dmbname 
in each PSIL. If PSILGOPO = 0. set 
DDIRNOUP = for corresponding 
DMB. 


DDIRINIT 


DDIRINIT 
DDIRFOND 


2. Write message DLZ04SI if no 
CICS/VS FCT. 




DDIRBLD 


Write message DLZ046I if no FCT 
entry existed matdiing the dbdname. 






3. Write message DLZ049I if no vaUd 
DMBs are found. 




DDIRNUML 


4. Write message DLZ047I if DMB not 
in library. 




DMBLLUP 


Write message DLZ072I if theDMB 
is not version 1 .1 or later. 






Write message DLZ048I if the 







Extended Description 



Write message DLZ049I if no vaUd 
DMBs are found. 









Routine 


Lafaai 


S . Write message DLZOl SI if invalid 


DDIRINIT 


CHKHSB 


DBDNAME in HSBFR statement. 






The number of index buffers and 






KSDS buffers in the HSBFR entry 






is moved to the ACB extension. If 






the oi^anization is HISAM the number 






of ESDS buffers is moved to the 






second ACBXT. These values are 






used in building the VSAM ACBs 






(in Step 7). 






6. 




DMBRLUP 


7. If HISAM, two sets of control blocks 




DMBOFFAJ 


will be built. 




ACBADLUP 


Information obtained from HSBFR 






statements is used for the GENCB 






BLK=ACB BUFNI>=parameter and 






BUFNI parameter. If none was 






specified, the default of 3 index 






buffers and 2 data buffers is used. 
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Figure 2-5.3. DMB Processing (DLZOLIOO) (Part 3 of 3) 
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8. Relocate PSDBs and SEC list. 



Process Secondary List if 
present for each PSDB. 
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BALR 
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Return to Step 6. 
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Routine 


Label 


8. The segment compression modules 
for each PSDB is loaded if present. 


DDIRINIT 


PSDBROUT 


Write message DLZ073I if the 
compression module is not found. 






9. If a secondary list is present, its 
code is tested, and referenced 
DMBs are resolved to DDIR pointers 
and placed in the list. 




PROSEC 


If an index user exit routine is 
present it is loaded. 






Write message DLZ013I if the SEC 
makes an invalid DMB reference. 






Write message DLZ266I if there 
is an invalid secondary code. 






Write message DLZ074I if the 
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Figure 2-5.4. Control Program initialization (PLZOLIOO) (Part 1 of 3) 



Figure 2-5.4. Control Program Initialization (DLZOLIOO) (Part 2 of 3) 
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Figure 2-5 
Step 4 






1 PROCESS ■ 



1. Control program initialization 
entry. 



2. Acquire storage for PSB and 
index work area. 



BALR 


GETCORE 




Storage 
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3. Move PSB to permanent location. 

4. Initialize PSB. 
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PSBRELO 


BALR 


PSB Initialization 
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5. Return to Step 2 for each PDIR. 



i. Load action modules as SLC 
says if requested. 



Storage Layout 

Control Routine 
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Extended Description 


Routine 


Label 


1. 


DLZCPIOO 


DLZCPIOO 


2. The address of the storage acquired 
is used as the 'move-to' address in 
Step 3. 




PCCORET 
PSBMLUP 


3. Once the PSB is moved, its new 
address is stored in the PDIR and 
the old PSB address becomes the 






new code upper boundary address 
(upward core allocation starting 
address), SCDCWRK. 






4. Write message DLZ056I if PSB 
fails to initialize. 




PSBNWA4 


6. If there is an SLC name at the 
nucleus address +8, the SLCLOAD 
routine loads the action modules. 




DLILOAD 
NUCLDNJL 


Write message DLZ032A and termi- 
nate DL/I initialization if CICS/VS 
journalling is to be used but there 
is no system log entry (X'Ol ') in 
the JCT. 
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if required. 
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^ 7. Allocate buffers 
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SCDDDBHO 




SCDDLIRE 






SCDDLICT 


► 8. If the niimhfir of DDI R entries does not 


SCDDBLNT 


equal 0, then load Action Modules. 
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^ 9. Initialize data base logging 
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Logger 
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Logger Initialization 
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Routine 


Ubel 


7. If there is not a buffer pool prefix 


DLZCPIOO 


BFRALOC 


address in the SCD indicating the 






buffers have already been allocated 






and the number of subpools required 






is not zero, go allocate the buffers. 






8. If CICS/VS joumaUng is supported. 




DLILOAD 


DLZRDBLO in the NUCLODTB is 






replaced with DLZRDBLl. 






Any module already loaded by 






SLCLOAD will not be reloaded. 






Write message DLZ055I if a DL/I 






faciUty module is not found. 






9. SCDDBLNT is loaded with the entry 




NUCLODNX 


point at the proper logger initialization 






routine (DLZRDBLO or DLZRDBLl). 






If loggmg was suppressed SCDDBLNT 






will continue to point to a branch 14 






for immediate return to caller. 
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Figure 2-5.4 Control Program Initialization (DLZOLIOO) (Part 3 of 3) 

f> INPUT I ■■ PROCESS I— — — 
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SCDDBLSV 



I SCDELECBJ ■ 



10. Attach the asynchronous logger 
if the CICSA/S journal logger 
is being used. 



' ATTACH Macro 
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Extended Description 


Routine 


Label 


10. Write message DLZ006I if the 


DLZCPIOO 


NUCLODNX 


asynchronous logger did not 






successfully attach and go 






close the log. 






The address list for the 






asynchronous portion of the 






database logger and its save 






area address are located in 






the database log load module 






just prior to the entry point. 






If the attach fails, the 






database log is closed and 






the system continues without 






log support 
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Figure 2-5.5. DMB Open Processing and Online Initialization Completion (DLZOLIOO) 



Figure 2-5.6. Module Load Routine (DLZOLIOO) 
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From 
Figure 2-5 
Step 5 



1. Determine if the DMB can be 
opened. 





SCD 




SCDDBMPS 
SCDSIND 
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^ 2. Issue OPEN ALL call to DL/I 
open/close. 



3. Scan DDIR for successful 
completion of open call. 



4. Write message DLZ113I with Program 
Isolation status. Write message 
DLZ119I with journaling/logging 
status. 



"> 5. Write message DLZ053I - 
^ DL/I Initialization Complete 



Write message DLZ054I - DL/I 
Initialization Error Detected. 
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1 DDIRCODE 
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Extended Descriotion 
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Label 


1 . If all PSBs are remote, do not attempt 
OPEN. 

2. 

3. Write message DLZ057I if an open 
error occurred attempting to open a 
DMB. 

5. During the course of initialization an 
error can also cause a direct return to 
CICS/VS with message DLZ052I - Ini- 
tialization Failed. 


DMBOPENA 


DMBOPENA 

DMBSCNX 
DMBSCLP2 

EXITOVL 
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Label 
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Core Image 
Library 
Blocks 
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Bytes 
Last Block 



1. Load Directory Entry. 

WKK^ LOAD Macro 



~" • ~ ► 2. If phase SVA resident go to 

Step 5. 



3. Acquire storage for requested 
phase; either A or B : 



■"OUTPUT^ 

I BLDLVSA 
■*sJvSE 
y^ Directory 



ENDSAVE I I SCDCWRK 
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VSE 

Core Image 



^^ B. Low Address space. 



^ 4. Load phase. 



f LOAD Macro 



5. Set phase entry point. 
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Routine 


Label 


. 1. Caller passes requested phase name 
in a work field BLDLN. The output 
of the load call is a VSE 
directory entry at BLDLVSA. 


INITLODR 


INITLODR 


2. 




BLDLFND 


3. Amount' of storage is deter- 
mined by: 






Number of Ubrary Block 
X 1024 + Number of Bytes 
in Last Block. 






INITSW indicates whether 
caller wants low address space 
or CICSA'^S to acquire the space. 






B. Write message DLZ058I if 
insufficient core to initialize 
DL/I. 









SCD 


CICS/VS 
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ISCDCWRK 1 I 










Loaded 
Phase 
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Routine 


Label 


4. If low address space is requested 




LODRLOD 


by the caller SCDCWRK is used 






as the load address. After the 






load macro the end address of the 






module wiU be in the VSE 






COMREG. SCDCWRK is updated 






with this end address to show the 






new low end of free storage. 






5. The phase entry point is passed 




LODROK 


back to the caller in register 1. 
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Figure 2-5.7. Storage Acquisition Routine (DLZOLIOO) 




PROCESS ■ 



1. Align the storage requested to 
specified alignment desired. 



fS 2. Acquire storage from CICS/VS; 
^ either low or upper storage. 



3. Return storage address 
R1 to caller. 



CICS/VS Partitioi 
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Routine 


Label 


of additional bytes needed to align 
is calculated and put in R7. 


GETCORE 


GETCOREA 
GETCORE 


Register 1 is updated to show the 
new total number of bytes required. 






2. Write message DLZ058I if insuffi- 
cient storage to initialize DL/I. 




BYCRALGN 


The SLCOPT flag byte (moved to 
SIPCORE from a storage layout 
control table entry) is used by 
CICS/VS GETMAIN routine. If we 
are doing our own alignment SLCOPT 
is examined to determine whether 
low or high storage was desired by 
the user. 






3. The load point returned in RO by 
Step 2 is adjusted by the additional 
bytes in R7 to get the requested 
alignment. This needs to be done 
only if low storage was acquired. 










Figure 2-5.8. 


Storage Layout Control Routine (DLZOLIOO) 
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1. Build the storage layout control 
table. 
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ClCS/VS BuiW 
Routine 




2. Load the table. 
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CICS/VS Loader 
Routine 
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3. Determine if the SLC entry is 
for the buffer pool. 










> 


.^jlTPTRFR 






^ BALR ' 














BUFALLOC 




II 




Buffer Allocation 
Routine 

2-5.9 


SCDDDBHO 


1 BLDLN 1 




SCDDLIRE 






1 




SCDDLICT 
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SLCOPT 






4. Load each module in the SLC 


SCDDBLNT 


SIP 
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table and set the entry points 
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SCDOUEFW 




SCDCPY10 




5. Update the online free storage 
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Routine 


Label_ 


1. 


SLCLOAD 


SLCLOAD 


2. Write message DLZ030I if the loaded 
SLC table does not begin with 
*DLZSLC*. 






The table is loaded directly after 
module DLZOLIOO. 






3. The user would have specified the 
DLZSLC statement with 
MODULE=BUFFER. 




SLCLUP 
SLCBUF 


4. As each module in the SLC table 
is loaded, the need to load flag is 
turned off so that upon return to 
Figure 2-5.4 these modules will not 
be reloaded. 




SLCLUP 


The SLCOPT for each module, as it 
is loaded, is moved to SIPCORE for 
use by the GETCORE routine. 
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Figure 2-5.9. Buffer Allocation Routine (DLZOLIOO) (Part 1 of 2) 
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2. Acquire aligned storage for buffer 
pool prefix, subpool information 
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3. Format the buffer pool prefix. 
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1 BFPLSIUN 1 1 
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DDIR 


4. Move information from ACT into 
the buffer pool tables. 
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5. Store buffer sizes in the 
subpool information tables. 
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Extended Description 


Routine 


Label 


1. Buffer allocation is done by this 
subroutine. The required number 
is set to the user specified total 
in the DLI parameter if the user 
number is smaller than required. 


BUFALLOC 


BUFALLOC 


Write message DLZ060I followed 
byDLZ06IAifbufferpool 
aUocation is missing or invalid. 






2. 




BFPREADY 


4. Write message DLZl 1 51 if there 
is an invalid DBDNAME in 
HDBFR entry. 




SCANHD 





H^Siiiy&^M 


Label 


5. At this point the size of the subpools 




PRPEND 


are determined. They are allocated. 






largest first, until the specified number 






is exhausted. Remaining DMBs 






requiring subpools are assigned evenly 






across all existing subpools. If the 






user specified more subpools than 






necessary, an additional pool of 512 






buffer size is allocated for delete 






workspace. 






The subpool sizes are sorted so that 




SUBTSHFL 


the largest subpool appears first in the 













Figure 2-5.9. Buffer Allocation Routine (DLZOLIOO) (Part 2 of 2) 

■• INPUT I mm PROCESS ' 



DDIRADDR 



SUBBFHD 


Directory 


SUBBFSIZ 




SUBDM8CT 



SCD 

I SCDDBFPL^I OPTBFR 



SBIF 




SUBBFNO 




SUBBFSIZ 


1 OPTBFR I 


1 
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6. Assign DMBs not yet assigned to 
subpools by HDBFR statements. 



7. Format buffer prefixes and 
allocate I/O buffers. 



A. Get aligned core for the 
buffer prefixes. 



GETCOREA 



Storage Acquisition 
Routine 

2-5.7 



B. Get aligned core for the 
buffers. 



GETCOREA 



Storage Acquistion 
Routine 

2-5.7 



t> 



C. Set buffer addresses in the 
buffer prefix. 




SUBDMBCT 1 1 DMBRBASN 1 



SUBUCPRE I SIPCORE ) 



I COREADJ 1 1 SIPCORE 



ADDR * 



DLZOLIOO - Online Initialization CSECT 



Extended Description 


Routine 


Label 


6. Assign DMBs by corresponding control 


BUFALLOC 


GREATPRO 


interval sizes. Each DMB is assigned by 






placing its DDIR position pointer into 






the subpool directory. 






It is possible to get message DLZ2621 






if there is a buffer allocation logic 






error. 






7. The user specified number of buffers 




BFRINIT 


is allocated per pool; default is 32. 






A. 




ACCLOOP 


B. 




BFFRFRMT 


C. 




BFRSPLUP 



Extended Description 



DLZOLIOO 

Routine 



JdlBL 






c 



o 

V y 



o 



o 



o 



o 



Figure 2-5.10. Build Associated DMB Control Blocks (DLZOLIOO) 
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DMBORG 




DM8DALGR 






IdmboanmeI 









DMBLRECL 



Figure 2-5.3 
Step 4 



1. Load randomizing module if 
organization is HDAM. 



Module Load 
Routine 

2-5.6 



^ 2. Determine if buffer pool space 
is required and set indicators. 








1 DMBDALGR 


IIdmbdaep I 





ACBXT PST 1 


1 DMBRBASN 1 


PSTWRK1 
PSTWRK3 







1 



DLZOLIOO - Online Initialization CSECT 



^escriptioi 



1 . Before loading the randomizer a 
check is made with all currently loaded 
randomizers. If one with the same 
name as the one we are loading is 
found, the entry point is resolved 

and the actual load is bypassed. 

If the randomizing module is not 
found, the DDIR is updated to 
show DMB initialization failed. 

2. If buffer pool space is required, 
the size of each control interval 
rounded to the next multiple of 
512 is indicated in PSTWRKl for 
later allocation of the buffer pool. 



DMBLOADR DMBLOADR 



,^|be^ 



Extended DescriPtio 



DLZOLIOO 



Figure 2-5.11. PSB Initialization Routine (DLZOLIOO) (Part 1 of 2) 
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PDIR 


PSB 


Ipdiraddr I 






PSBCODE 


PSBLIST 






PCB 


Idpcbjcb [~ 


JCB 


SDB -IZ 


Ijcbsdbi I 


SDBSYM 




SDBPARA 


SDBDSGA 


SDBTARG 


SDBKEYFD 


SDBXFL 


SDBXPANS 


SDBEND 








1 PCBEND (80) 1 


I 


PSB 


PSBXPCB 1 





Figure 2-5.4 
Step 4 



1. Initialize and relocate PSB 
pointers. 



2. Relocate the PCB and JCB 
pointers. 



3. Initialize all SDBs belonging 
to a particular JCB. 



4. Test for the end of the PCBs 
in the PSBLIST. 



If not the end, return to Step 1. 



PCB JCB 


Idbpcbjcb 1 


JCBLEVND 


JCBSDB1 


JCBSDBND 







SDB 
SDBPARA 



Figure 2-5.11. PSB Initialization Routine (DLZOLIOO) (Part 2 of 2) 
r- PROCESS —— — 



DLZOLIOO - Online Initialization CSECT 







PDIR PSB 




PDIRADDR 


1 PSBLIST 1 1 




PDIRCODE 






PDIROPTC 










PDIRSILA 


JDBPCBJCB |P 




PSIL JCB 




PSILDIRA 


1 JCBPRLEN 1 




PSILDIRN 






DSG 




DSGDMBNO 




DSGDCBNO 




DSG IN DA 
















1 SDBXP 




SDBF3 








JCB 
|JCBSDB1 1 

DSG 




SDBPARA 








SDBKEYFD 




SDBXFL 




SDBXPANS 




SDBEND 




SDBXFNB 


■ bSGDMBNO 1 




SDBXFFSB 


PSB 




DMB 




PSBCODE 




Idmblentb 1 




PSBFRTA 
















PERT 






FERTNAME 




FERTPRES 











5. Connect data bases to PCBs. 



6. Connect SDBs to PSDBs. 



7. Chain Field Exit Routine (FER) 
entries and relocate FSB pointers 
if PSB has field level sensitivity. 




SDB 


SDBXP 


SDBDDIR 


1 SDBXPFDP 1 


SDBPSDB 




SDBKEYFD 





DLZOLIOO - Online Initialization CSECT 



Extended Description 


Routine 


Label 


1. 


PSBRELO 


PSBRELO 
PCBRLLUP 


2. 




PCBPLIP 


3. 




SDBRELO 


4. The pointer to the PSBLIST is 




NPCBCK 


bumped to the next PCB pointer 












Step 1 if we are not at the last 






PCB. If the index PCB exists and 






has not been relocated return to 






Step 2. 







Extended Description 



Extende^DescrlDtion 



5. For each DSG belonging to a PCB, 
the offset to the corresponding PSIL 
is found by the offset in DSGDMBNO. 
The DMB number at the corresponding 
DMB to this PSIL is then moved to 
DSGDMBNO. Thus, data bases 
specifically used for this PCB are 
connected. 

7. Return to Step 4 to process the 
next PCB in the PSBLIST when 
there are no more SDBs. 



^Routin 



Extended Description 
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Figure 2-6. Online Nucleus (Overview) (DLZODP) (Part 1 of 2) 



Figure 2-6. Online Nucleus (Overview) (DLZODP) (Part 2 of 2) 



DLZODP - Online Nucleus 



CICS, DL/I 
DOS/VS or 
AppI Pro- 



r PROCESS ■ 



1. DL/I dummy prescheduling 
and tasl< scheduling routines. 
(See Figure 2-6.1) 

2. System abnormal and normal 
termination routines. 

(See Figure 2-6.2) 

3. Task abnormal and normal 
termination routines. 
(See Figure 2-6.3) 

4. Start of task record writer. 
(See Figure 2-6.4) 

5. Sync point record writer. 
(See Figure 2-6.5) 

6. Online program request 
handler. 

(See Figure 2-6.6) 

7. Process system call routine. 
(See Figure 2-6.7) 

8. Online trace entry routine. 
(See Figure 2-6.8) 

9. Online wait routine. 
(See Figure 2-6.9) 

10. VSAM asynchronous exit 
routine. 

(See Figure 2-6.10) 

11. Online error message writer. 
(See Figure 2-6.11) 



uExtended Description 


Routine 


Label 


1. 


DLZODPOO 




2. 


DLZODP03 
DLZODP02 




3. 


DLZODP07 
DLZODP06 
DLZODPOl 




4. 


DLZODP04 




5. 


DLZODP05 




6. 


DLZPRHOO 




7. 


PROCSYS 




8. 


DLZOLTOO 
DLZOLTOl 
DLZOLT02 




9. 


DLZOWAIT 




10. 


DLZOVSEX 




11. 


DLZERMSG 





Extended Description 




r PROCESS > 



DLZODP - Online Nucleut 



12. Online get storage routine. 
(See Figure 2-6.12) 

13. Online free storage routine. 
(See Figure 2-6.13) 

14. Common scheduling routine. 
(See Figure 2-6.14) 

15. Common data base/checkpoint 
call routine. 

(See Figure 2-6.1 5) 

16. Local PSB scheduling routine. 
(See Figure 2-6.16) 

17. Local PSB unscheduling routine. 
(See Figure 2-6.17) 

18. Remote PSB scheduling routine. 
(See Figure 2-6.18) 

19. Remote data base call routine. 
(See Figure 2-6.1 9) 

20. Remote termination call routine. 
(See Figure 2-6.20) 

21 . Remote rescheduling routine. 
(See Figure 2-6.21) 



I 

1 





Routine 


Label 


12. 


DLZODPIO 




13. 


DLZODPll 




14. 


DLZCOMOO 




15. 


DLZCOMOl 




16. 


DLZLOCOO 




17. 


DLZLOCOl 




18. 


DLZISCOO 




19. 


DLZISCOl 




20. 


DLZISC02 




21. 


DLZISC03 







Routine 


Label 









I 

to 



Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (DLZODPOO) (Part 1 of 3) 
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■ INPUT Mi— 


TCA 




From 

CICS/VS 

DFHPCP 

M 

From 




TCADLII 


- 





TCADLPAS 






SCD 








SCDATSKC 










SCDCMTI 






SCDCMXT 




SCDSIND 




SCDTSKCT 




SCDCMTCT 













DL/I Prescheduling Routine 






1. Return to caller. 

1 


To 

CICS/VS 

DFHCPC 




DL/I Task scheduling routine 










UIB 












► 3. If this is a system call. 






go to step 7. 






, 4. Check task value. 






A. Suspend task if at 

maximum value and go to 
Step 9. 




SCD 




SCDATSKC 




SCDCMTI 


SCDMTCT 


SCDSIND 


count if not maximum. 




r SCDTSKCT 







DLZODPOO — DL/I Prescheduling and Task Scheduling Routines 



2-6.1. DL/I Prescheduling and Task Scheduling Routines (DLZODPOO) (Part 2 of 3) 

INPUT mmmmmm^mmm^mmmm mm PROCESS . 



I Parameter ^■ 
List 1 



DSG 




TCA 


DSGDSGLN 




TCADLII 


PPST 


TCADLIPA 


PPSTLEN 


TCADLPAS 


PST 


TCADLUIB 


PSTLNGTH 


TCAPCTA 


RIB 


TCASCSA 


RIBLEN 


TCASYAA 


RPST 




UIB 


RPSTLEN 




UIBRGMOT 


SCD 


UIBFLAG1 


SCDDBMPS 




PDIR 


SCDPI 


poirxpsbJ 



5. Acquire the PST prefix and add 
it to the active chain according 
to priority. 



6. Indicate MPS scheduling call for 
PCBM function. 



7. Acquire and initialize task 
PST storage. 

^Hi^ OFHSC TYPE=GETMAIN 



PPST RPST 


1 PPSTCA 1 1 RPSTACTA | 


PST TCA 


PSTCPGM 


TCADLII 


PSTPREAD 


TCADLIPS 


PSTRPSTA 


TCADLIPA 


PSTRRDF 


TCADLITC 


PSTRRDL 


TCASCNB 


PSTSCDAD 




PSTSV1-7 


pstuib 


PSTFLD 


PSTFLDN 


PSTFLDE 







DLZODPOO - DL/I Prescheduling and Task Scheduling Routines 



extended Description 



Extended Description 



L Extended Description 



1. Nucleus identifier (*DLZNUCXX*Ovrn) 
and module identifier (DLZODPvrnp) 
are defined here. The level format is 
vrnp; where V is the version, 'r' is the 
release, 'n' is an additional identifica- 
tion number, and 'p' is the latest PTF 
that has been applied. 

2. 


DLZODP 
DLZODP 


DLZODP 
DLZODPOO 

DLZSCHDL 



5. 

7. Storage acquired for PST and FLD 
control blocks. Acquires storage for 
RIB and RPST if UIBREM0T=1 . 




TASKPPST 
TASKPSTT 




f 

i 






w 



c 
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Figure 2-6.1. DL/I Prescheduling and Task Scheduling Routines (DLZQDPOO) (Part 3 of 3) 

m INPUT aMMMBiaMiaMiMaB ■■ PROCESS aM.M,^Miai.«..ii.Mi»^M^_i. 



^ 8. Return to caller. 



• * 9. Suspend task due to maximum 
task limit and record time task 
suspended. 



DFHEMPTYPE=ENTRY 



DFHKC TYPE=SUSPEND 



10. When task resumes, stop suspend 
clock and return to Step 3. 



DFHEMP TYPE=ENTRY 



DLZODPOO - DL/I Prescheduling and Task Scheduling Routines 
extended Description Routine Label 



Extended Description 
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9. 




■TASKSUSP 



SOD TCA 1 


SCDDLIS 




TCADLII 


SCDSPCNT 




TCADLIST 


U,B 


TCADLITE 


1 UIBSUSP 


1 









Routine Label 
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Figure 2-6.2 


. System Abnormal and Normal Termination (DLZODP02) (Part 1 of 2) 












CICS/VS 
DFHSRP 

1. 

CICS/VS 
DFHSTP 

Li 


4 

1. Enter for abnormal system 






















" . 

•FO' 1 










2. Enter for normal termination. 
Go to Step 10 if this is the 
second time entering. 

> 3. Acquire a dummy PST (for 
register save areas) to close 








SCDDLIPS 




1 


SCDPPFF 


d 




SCDSIND 




: 




PST 










6 if log not active or if 
journal ing is active. 






PSTPREAD 










PSTSCDAD 






PSTPSB 


^HH^ UhHSC 1 VHt=bblMAIN 


PSTSV1 


PSTSV2 


PSTSV3 




SCD 


I— 


PSTSV4 




SCDDBLFW 


PSTSV5 










PSTSV6 




T^ 


DLZRDBLO 




PSTSV7 


Log Force 
Write 










SCD 














SCDDBLCL 


^~" 


> 5. Close data base log. 


SCDDBLSV 


4-4 

BALR 












DLZRDBLO 






Log Close 
Routine 








^-* 


DETACH Macro 











Figure 2-6.2. System Abnormal and Normal Termination (DLZODP02) (Part 2 of 2) 
INPUT I ■■ PROCESS " 



h — :- 



6. Notify MPS batch programs of 
termination and delete XECBs. 



MPS System 
ABTERM Cleanup 
Fig. 2-19.8 



7. Return to CICS/VS if normal 
termination. 



" 8. If abnormal termination, issue 
message DLZ070I - Abnormal 
Termination Complete. 



9. Write formatted dump. 



DFHPC TYPE=LOAD 



> STPRENTR 

f^ 1 



I TCAPCPI I 



DL2ODP02 - System Abnormal and Normal Termination CSECT 



DLZODP02 - System Abnormal and Normal Termination CSECT 



Extended Description 


Routine 


Label 


1. Entry is made from CICS/VS System 
Recovery Program on abnormal 
termination. 


DLZODP03 


DLZODP03 


Return is back to DFHSRP. 






2. Routine identifier (DLZODP02vrnp) 
is defined here. For normal termina- 
tion DFHSTP enters this routine twice. 


DLZODP02 


DLZODP02 


3. Issue message DLZ067I if there is 
insufficient storage to terminate 
DL/I. 




STPRENTR 


4. 




STPSVCHl 



Extended Description 




Extended Description 


Routine 


Label 


6. MPS batch programs may be active or 


DLZODP02 


STPEXLOG 


waiting for onUne MPS processing and 






are therefore notified if CICSA^S 






terminates. Online XECBs defined for 






MPS are also deleted. 






7. 




STPNOXCB 


8. 




ABTERM 


9. 




STPEXIT3 



Extended Description 



Routine Label 
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: Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZOPP07) (Part 1 of 8) 



P INPUT i 



PSTPREAD 




TCADLII 


PSTCODE1 




TCADLIPA 


PSTLOGIP 




TCADLIPS 


PSTBUFFA 


BFFR 


SCD 


BFFRSW1 


SCDESECB 1 


BFFRLOCK 



RPST 
I I RPSTXPSB 



wm PROCESS ■ 



1. Cancel WAIT/SUSPEND Routine. 

A. If PST is acquired, 

— cancel any logging in progress 

— cancel uncompleted I/O. 



OIOCK 



B. If PST is not acquired, 
go to Step 1 D. 

C. Move local PDIR entry 
address to PST if this 
is extended RPSB. 

D. Resume a task suspended for 
maximum task limit, if any. 



7> 



Resume CMAX 
suspend Step 3V 



E. Return to CICS/VS. 



F. If task is suspended for 
task limit, go to Step 3U. 



G. Return to CICS/VS DFHPCP. 



^ 



-OUTPUT^ 

BFFR 






BFFRLOCK 




BFFRSW1 




SCD 






SCDESECB 
PST 






PSTPSB 





Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODP06) (Part 2 of 8) 
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DLZODP07 - Cancel Outstanding WAIT or SUSPEND 



Extended Description 



Extended Description 



5f 

I 
I 



O 



1 . Post lo^er ECB if logger was doing 
I/O for this task when ABEND occurred. 



PPSTIND 




TCAABIPM 


PPSTMPS 




TCADLII 


PST 




TCADLIPA 


PSTERCOD 




TCADLIPS 


PSTPREAD 


TCADLPAS 






TCASYABI 



►2. Abnormal Termination 
Dump Entry. 

A. If PST acquired, system not 
abnormally terminating, task 
abnormally ending, then take 
I DUMP or formatted task dump. 



DOS/VSE 
DUMP 



B. Return to CICS/VS 
DFHPCP. 



i 

i 



DLZODP06 — Task Abnormal and Normal Termin 



Extended Description 



Routine Label 



2. No formatted dump is produced in 
case of missing PST or insufficient 
storage available. If SYSDUMP=YES 
was specified for the DOS/VS partition, 
an IDUMP is taken instead of the 
formatted dump. 

DL/I system ABEND is reduced to task 
ABENDS. In case of DL/I system ABEND, 
all DL/I tasks are abended by DL/I. For 
each task, DLZFTDPO is called. 

DLZFTDPO uses the CICS dump macro 
DFHDC, that dumps DL/I blocks on the 
CICS dump data set. 


DLZODP06 







Routine 


Label 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPnn) (Part 3 of 8) 



]_ :. 



3. Task Termination Routine. 



A. Write termination trace 
entry. 



Trace 
Entry 
2-6.8 



B. If task Is already 
terminated, go to 
Step R. 

If task is a system 
task, go to Step O. 

C. If PST is acquired, 
go to Step D. 

If PST is not acquired 
and: 

Task is suspended for 
maximum task limit, go 
to Step O. 

Task is not suspended, 
go to Step V. 



■ OUTPUT — 

UIB 




y UIBFLAG1 




UIBRCODE 


UIBTERM 






TCA SCD 1 1 


TCADLII 


SCDSIND2 1 


TCADLITC 


SCDSYACT 1 


1 





Figure 2-6.3. T 


ask Abnorma 


and Normal 


Term 

>PRC 

• D. 

► E. 

' F. 

> G. 


ination Routines (DLZODP01) (Part 4 of 8) 
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PST TCA 


If task's PSB cannot be 




















UIB 


If remote PSB is scheduled. 






UIBFLAG1 - 




UtBREMOT 


issue remote TERM call. 










UIB 


4-4 


DLZISC02 








Remote TERM 
Interface 

2-6.20 






UIBFLAG1 - 


If this is not a local 








UIBXRPSB 


PSB, go to Step M. 










PST ACB i 


Issue TERM call to 


- 




PSTCLRWT 


ACBEXLST 




1 




PSTEXPAD 


ACBST 


purge buffers. 




PSTLIPRM 


DMB 




PSTPREAD 


DMBACBAD 










^ 


DL2DLA00 






PSTSABND 


DMBACBST 




Call 

analyzer 
2-8 




PSTSAVRE 


DMBECB 




PSTSV2 


PDIR 












PSTSV7 


JPDIROPTC 






PSTTABND 


Ipdirscno 




PSTXPSV1 


PPST 




PSTXPSV2 


PPSTIND 




PSTXPSV3 


PPSTIO 




SCD 


PPSTABND 




SCOABEND 






SCDDLICT 





















r OUTPUT- 

PST 



PPST PST 1 


PPSTACT 


PSTIQPRM 


PPSTIND 


PSTLIPRM 


PPSTIO 


SCD 




1 1 







DLZODPnn — Task Abnormal and Normal Termination Routines 





Routine 


Ubel 


3A. Routine identifier (DLZODPOlvmp) 


DLZODPOl 


DLZODPOl 


is defined here. 




DLZTKTRM 


This is the entry point for CICS/VS 






if the PCP termination exit indicator 






(TCADUTE) is on and the task is 






about to be detached. 






This is the entry point for the Program 






Request Handler for a TERM or a T 
call. 






If trace is enabled, a task termination 




DLZOLT02 


entry with an ID=XT8' is made 












requested, and the DL/I status. 






3C. 




NOSYSTSK 




DLZODPOl — Task Abnormal and Normal Termination Routine 
Extended Description Routine 



Extended Description 
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PURGBUF 
OIOCK 
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Figure 2-6.3. Task Abnormal 
■■ INPUT aMH^— — ^ 
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SCDDBMPS 
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SCDPI 
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i Normal Termination Routines (DLZODP01) (Part 5 of 8) 
■■ PROCESS ^— ^^i-^-^^— — ^^ 



Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODPOT) (Part 6 of 8) 



>^ H. Write TERM log record to CiCSA/S 
journal or DL/I log. 



} DFHKCTYPE=WAIT 



Write a CICSA^S synchronization 
point record if using CICSA/S 
journal. 



Write sync 
point record 
2-6.5 



__ 2 ^ J. Unschedule local PSB. 



Unschedule 
local PSB 
2-6.17 





> PPST SCD II 


PPSTACT 


1 SCDCDTA 1 


PPSTIND 


TCA 




Itcatcea 1 









m PROCESS ■ 



^ K. Save number of PI resources 
owned and dequeue program 
resources. 



> L. if storage acquired for extended 
RPSB, free storage. 



Free storage 
2-6.13 



M. Return PST prefix to free 
chain. 



5> N- Record DL/I call statistics. 

^mm^ DFHEMPTYPE^ENTRY 



r OUTPUT - 

PST 



■V^l PSTDLROM 



PPSTCB 


SCDPPAB 


PPSTCF 


SCDPPAF 


PPSTIND 


SCDPPFB 


PPSTTCA 


SCDPPFF 



TRIM 


TRACETAB 


TRMFREPP 






TRMFREPE 
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DLZODP01 — Task Abnormal and Nonmal Termination Routine 
Extended Description Routine 



Extended Description 



Routine Label 



DLZODP01 — Task Abnormal and Normal Termination Routines 
Extended Description Routine Label 



Extended Description 



a 



I 

Q 



I 



3H. A wait may be done at this time for 
the logger if it is not available. 

31. 




TRMLGBY 



3K. Number of PI resources owned 
are saved for CMF Hook 
statistics. 

3L. 




TRMNOTBP 
NOPIDEQ 




Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODP01) (Part 7 of 8) 
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O. Free FLD and PST storage and 
preschedule task. 



► DFHSCTYPE=FREEMAIN 



— -^ P. If this is a system task, go to 
Step R. 



> Q. Resume any task waiting for 
maximum task limit. 

DFHKC TYPE=RESUME 



^ R. If terminating task is MPS mirror, 
go to MPS normal/abnormal task 
cleanup routine. 



MPS cleanup 
2-19 



DLZODP01 - Task Abnormal and Normal Termination Routines 
Extended Description Routine Label 



Extended Description 
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Figure 2-6.3. Task Abnormal and Normal Termination Routines (DLZODP01) (Part 8 of 8} 
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PPSTTCA SCDPPSTS 




Set task termination complete 
indicators and return to 
CICS/VS DFHPCP. 



T. If task's PPST is found in search 
of PPST, go to Step M. 



U. Take a dump and go to Step O. 



DFHDCTYPE=PARTIAL 



> V. Remove task from SUSPEND chain 
and return to caller. 
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DLZODP01 — Task Abnormal and Normal Termination Routines 
Extended Description Routine Label 



Extended Description 



ST. 

3V. 




TRMFREPO 
TRMSUSPA 



s. 

i 



O 



W:::l^ 






o 



n 



o 



o 



o 



Figure 2-6.4. Start-of-Task Record Writer (DLZODP04) 
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2-6.1 
Step 25 



1. Save registers and establish 
addressability to CSA and 
system TCA. 



2. If Start-of-Task record is 
already logged, go to Step 5. 



3. Get journal control area. 

AHIB dfhjctype=getjca 



i JCA Address | > 4 yy^jjg start-of-Task record. 



> 5. Restore registers. 



DLZODP04 - Start-of-Task Record Writer 



Extended Description 


Routine 


Label 


1. Routine identifier DLZODP04vmp 


DLZODP04 


DLZODP04 


is defined here. 






3. Acquire task's JCA and establish 






JCA addressability. 






4. Dummy record is written to system 






log and CICS Start-of-Task indicator 






is set in it to mark start-of-task on 






system log. 






5. Restore save area address in register 




DLXSCRET 


13 and reload registers 14 through 






12 from the save area. 
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Figure 2-6.5. Sync-Point Record Writer {DLZODP05) (Part 1 of 2) 
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1. Save registers and establish 
addressability to CSA and 
system TCA. 



— ; ^ 2. If caller was DFHSPP (CICS/VS 
Sync-Point Program), go to 
Step 5. 



3. Issue a sync point. 



DFHSP TYPE=USER 



> 4. Restore registers and return. 



5. Build a Deferred Work Element (DWE). 

WKKK^ DFHSCTYPE=GETMAIN 
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DLZODP05 - Sync-Point Record Writer 



1. Routine Identifier DLZODPOSvrnp 
is defined here. 



5. DWE is not built for read-only PSa 



DLZODP05 
DLXACDWE 



Label 



Extended Description 



Figure 2-6.5 


. Sync-Point Record Writer (DLZODP05) (Part 2 of 2) 














From 
DFHSPP 






1 






j DWEADDR 






TCA 




DWE@ End 






TCADWLBA 




^ o. Insert DWE at end of DWt chain. ——* 


' "^ 


of Chain 


TCASCSA 






1 DWECHAN 










NEW DWE 






DWESVMID 




DWESTAT 


DWESVMNA 


DWERSAA 






1 






—^ R14 




# 


To "^^ 
DFHSPP 


DFHSPP Return 
Address 










R14 




R6 RIO . 1 




DFHSPP 

Return 

Address 






iS 8. Restore 1 ask 1 ermination " 




system 


1 DWEADDRl 






environment. 
9. Return. hhi 


To "^' 
Figure 
2-6.3 
Step 10 












R13 


R9 




1 Save area 1 1 PST ADDR | 1 1 


Caller 


TCA 


1 TCAFCTR 1 


1 


h 
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1 DFHSPP Return 
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nc-Point Record Writer 













Extended Description 



6. Store address of DWE entry point 
of DLZODP05 in DWE for deferred 
processing by CICS/VS. 

8. Set up registers and PST save area 
to complete task termination and 
then return to DFHSPP. 


DLZODP05 


DLXDWECN 
DLXTDWEN 



Extended Description 
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Figure 2-6.6. Online Program Request Handler (OLZPRHOO) (Part 1 of 7) 
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Fi^re 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 2 of 7) 





F. if DL/I is able to process requests, 
go to Step 2. 



G. Set data base call for trace. 
Go to Step 4. 



2. Validate data base calls. 



A. Save HLPI and Imguage indicators 
if task is scheduled. 

B. If task is not scheduled, indicate 
scheduling error. Go to Step 4. 



• > C. Verify that the call p 

and the number of call parameters 
is valid. 

D. If an error is detected, write 
message number and abnormally 
terminate task. Go to Step 5E. 

E. Call common data base call 
routine. 
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UIB 
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NOTE: DLZPRHOO is entered from the Language Interface Module, DLZEtPOO, DLZBPCOO, or OFHMIR. 
DLZPRHOO - Online Program) Request Handler 



Extended Description 



Extended Description 



1. Module identifier (DLZPRHOOvmp) 
is defined here. The level format is 
vmp, where V is the version, 'r' is 
the release, 'n' is an additional ident- 
ification number, and 'p' is the latest 
PTF number that has been applied. 


DLZPRHOO 


DLZPRHOO 




DLZPRHOO— Online Program Request Handler 



Extended Description 



IF. 

2A. 

2B. Error returned is X'0808'-DB 
call when not scheduled. 

2D. Write message DLZ260I for 
invaUd number of parameters 
or message DLZ261I for invalid 
call parameter. 




TESTFUNC 
PRHDBO 



Extended Description 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 3 of 7) 
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TCASYAA 



F. If a task is to be abnormally 
terminated, go to Step 5E. 



G. Go to Step 5B. 
3. Validate scheduling calls. 

A. Verify that the call parameters 
and the number of call parameters 
is valid. 

B. If an error is detected, write 
message and abnormally 
terminate the task. To go 
Step 5E. 



C. Return address of UIB to user 
if (JIB pointer is in parameter 
list. 



D. Provide default PSB name if none 
is specified. 



E. If PSB name is invalid, indicate 
scheduling error. Go to Step 4. 



^^ User PARMS 
IZ^ I UIBpointerj 



UIB TCA 


1 UIBPSB 1 1 TCADLPSB | 
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Address of 
PDIR entry 









Figure 2-6.6. Online Program 

■■ INPUT mmmmmmimmmmm 
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UIBFUNC 
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Request Handler (DLZPRHOO) (Part 4 of 7) 
■■ PROCESS — ■— ■ I 
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F. If PSB NAME=SYSTEMDL, process 
system scheduling call. Go to 
2-6.7. 

G. Indicate type of PSB in UIB. 



H. Indicate scheduling error if illegal 
MPS is rescheduling call. Go to 
Step 4. 



^ I. If PSB name is not in program's 

ACT entry or if PSB failed to 
initialize, indicate scheduling 
error. Go to Step 4. 



J. Call task scheduling routine. 



Task scheduling 
2-6.1 



DLZPRHOO - Online Program Request Handler 



Extended Description 



Extended Description 



Routine Label 



DLZPRHOO - Online Program Request Handler 

Extended Description Routine Label 



Extended Description 



3A. 

3B. Write message DLZ260I for 
invalid number of parameters. 

Write message DLZ261I for 
invalid call parameters. 

3E. Error returned is: 

X'0801' - PSB not in PSB directory 
X'0802' - Task not prescheduled 
X'0803' - Task already scheduled 
X'0806' - PSB name too long or too 
short 




PRHSCHDO 




3H. Error retumed is X'0809' - lUegal 
MPS scheduling caU. 

31. Error retumed is: X'0805* - FSB 
initiali2ation failed, or 
X'0806' - PSB not authorized 
for program. 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 5 of 7) 



Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 6 of 7) 
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^ PROCESS ■ 



K. Call PSB scheduling routine. 



Common PSB 
scheduling 
2-6.14 



L. If there is no scheduling error, 
go to Step 4. Set scheduled 
indicator. 

4. Handle scheduling errors. 



A. If no PST is acquired, set 
scheduling error return 
code. Go to Step 5C. 



B. If PST is acquired, free 
PPST and PST. 


Slggk 


DLZODP01 




Free PPST/PST 
2-6.3 


C. Go to Step 58. 





DLZPRHOO — Online Program Request Handler 
Extended Description Routine 
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DFRSERR8 
DFRSERRS 
DFRSERRB 



ItCADLPCB I luiBPCBAL 





Routine 


Label 
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CSA 
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p PROCESS ■ 



v^ A. Call task termination routine. 



Z^ B. Set up return code and call 
trace routine. 



5. Process termination calls. 



Task 

termination 
2-6.3 



Online 
'°" 2-6.8 



^ C. Restore registers and return. 



Idfhictype=exit 



v> D. Set up ABEND code. 



DLZPRHOO — Online Program Request Handler 

Extended Description Routine Label 



Extended Description 
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Figure 2-6.6. Online Program Request Handler (DLZPRHOO) (Part 7 of 7) 
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> E. Terminate task abnormally. 



DFHPC TYPE=ABEND 



F. Set DL/I system ABEND indicator 
and go to Step 5E to abnormally 
terminate this task. 



I SCDSIND2 ] 



DLZPRHOO — Online Program Request Handler 

Extended Description , Routine 



Extended Description 
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Figure 2-6.7. Process System 
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Call (DLZPRHOO) (Part 1 of 4) 
r PROCESS !■— — 



": ^ 1. If 'SYSTEMDL' call, schedule 

system scheduling. 



Task Scheduling 
Routine 
2-6.1 



Go to Figure 2-6.6, Step 8. 



> 2. If CMXT function, adjust CMXT. 
Go to Figure 2-6.6, Step 8. 



. ^ 3. If TSTR function, load the 

requested trace module and issue 
initialization call. 

^■14 DFHPC TYPE=LOAD 



DLZTRCAL TYPE=START 



Go to Figure 2-6.6, Step 8. 
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Figure 2-6.7. 


Process System Call (DLZPRHOO) (Part 2 of 4) 
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^ 4. If TSTP function, issue 
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and free storage. - ..,.>. =^^" 1 






^■M DLZTRCAL TYPE=STOP 
^■■M DFHPCTYPE^DELETE 

Go to Figure 2-6.6, Step 8. 

^ 5. If STRT/STOP function, initialize 
DBD parameters by first verifying 
the caller is scheduled. 
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>> 6. Locate DDIR entry. 
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DLZPRHOO - Program Request Handler CSECT 



Extended Description 



DLZPRHOO - Program Request Handler CSECT 



Extended Description 



system calls must have been previously 
scheduled by password with this 
special schedule PCB SYSTEMDL 
call. If the password does not match, 
the caller abends via DFHPC with code 
DLPV. 

Important indicators set are: 

SCDSYACT - system interface 

active 
TCADLITE - termination 

required 
TCADLPAS - system task 

scheduled 
TCADLISD - task scheduled 

Exit is taken to scheduling routine to 
get a PST and initialized upon return. 

PSiSCALL (system call in progress) 
is set and return is made to caller. 

2. The value passed by the user 
validated and moved to the SCD. 




PROCSYS 
PROCMXT 



Without MPS, data is moved to the 
user call list area for work space. With 
MPS this would cause a storage pro- 
tection exception. To avoid this, an 
area in the PST (PSTLIPRM) (in the 
CICSA^S DL/I partition) is used as a 
work area. The MPS batch program 
request handler (DLZMPIOO) then 
moves the data from the PST into 
the user call list. 

If the new request is zero, negative, or 
exceeds MAXTASK indicate an 
invalid request error (set 08 in 
TCAFCTR). 

3. If task not scheduled for system 
calls (TCADLPAS not on) abend 
via DFHPC. 

If tracing is ahready active set X'Ol ' 
in TCAFCTR. 

If the load fails, set X'02' in TCAFCTR. 

If GETMAIN fails during initialization, 
set XW in TCAFCTR. 




PROCTSTR 





Routine 


l^bel 


4. If task not scheduled for system 




PROCTSTP 


calls (TCADLPAS not on) abend 






via DFHPC. 






If tracing not active, set X'Ol' in 






TCAFCTR for invalid request. 






5. If task not scheduled for system 




PROCINIT 


calls (TCADLPAS not on) abend 






via DFHPC. 






6. The DMB name passed by the caller 




PROICON 


is used to scan the DDIR. 






If this is not an MPS task, data (VSAM 






return code and ACB address) is moved 






into the user call list for the caller. 






With MPS, a work area is used in the 






PST (PSTLIPRM) to build the data 






from the PST to the user call Ust. 






If the DDIR is not found, set X'08' 






in TCAFCTR to indicate an invalid 






request. 







Extended Description 



DLZODP 

Routine 



7. The ACBs are checked for open/close 
status. The ACB address (2 if HISAM 
organization) and whether the ACB 
is open or not is put into the user call 
list (or if this is an MPS task, into the 
PST). Reference to fields within either 
of these two areas is by the system call 
parameter list DSECT (DLZSYSDS). 

If the DDIR failed to initialize, set 
X'02' in TCAFCTR. 

If TESTCB request fails, set X'03' 
in TCAFCTR. 
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Figure 2-6.7. Process System Call (DLZPRHOO) (Part 3 of 4) 
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> 8. Initialize the dummy DSG. 












9. If STRT function, go to Step 14. 

► 10. For STOP function, check the 
validity of the call. 

b 11 StoD scheduiina this DMB and 
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13. Go to Step 15. 




> 14. For STRT function, check 
validity of call. 
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1 DDIRCODE 
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> 15. Wait for asynchron 
If open and active. 


ous logger 

DFHKC TYPE=WAIT 







Figure 2-6.7. Process System Call (DLZPRHOO) (Part 4 of 4) 
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DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 




8. 




PROCDSG 


10. If the ACB is not open, set X'Ol' to 
indicate the STOP call is invalid. 




PROCSTOP 


12. Set X'04' in PSTFNCNT to indicate 
'mark buffers empty request to 
buffer handler'. 




GOTOBUFF 


The DMB number is used to index 
into the subpool directory to get the 
subpool number for this DMB. If there 
is no subpool number, bypass calling 
the buffer handler. 






Set X'Or in PSTFNCNT to indicate 
'close DMB request' to open/close 
module upon return from buffer 
handler. 






14. If this data base is not stopped or if 
the ACB is open, X'Ol' in TCAFCTR 
to indicate the STRT call is invalid. Set 
X'09' in PS'IFNCTN to indicate 'open 
DMB request' to the open/close 
module. 




PROCSTRT 


15. 
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Extended Description 


Routine 


Label 










DLZPRHOO - Program Request Handler CSECT 



Extended Description 


Routine 


Label 


16. The open/close module issues and 




BYSYSWAT 


SVC2 and CICS/VS loses control for 






the duration of the call. 






The VSAM return code in the DDIR 






upon return from the buffer handler. 






is moved to the user call list area (or 






if this is an MPS task, into the PST) 






which is mapped by DLZSYSDS - 






the system call parameter Ust DSECT. 






17. If this is an MPS task, PSTSEGL and 




RETURNB 


PSTSEG must be set up for MPS batch 






PRH (DLZMPIOO) to move data from 






PSTLIPRM to the user call list area. 






PSTUSER already contains the address 






of user call list area. 








I 



i 






O 



O 






C 



o 



o 



o 






Figure 2-6.8. Online Trace Entry Routine (DLZOLTOO) (Part 1 of 2) 
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Figure 2-6.8. Online Trace Entry Routine (DLZOLTOO) (Part 2 of 2) 



1. Save registers and establish 
addressability. 

/J 2. Set up PSB name, type of PSB and 
v^ DL/I identifier, and write first 
schedule call trace entry. 



W^^ DFHTRACEOLI 

/I 3. Convert schedule call return 
v^ code to character code. Go to 
Step 9. 



4. Save registers and establish 
addressability. 



5. Set up DBD name or '* ERROR**' 
and DL/I identifier, and write first 
/>|^ data base call trace entry. 



► DFHTRACE DLI 



jj 6. Set up call functions, return code, 
vr and status code. Go to Step 9. 



DLZOLTOO — Online Trace Entry Routine 
Extended Description 



Routine Label 
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1. Trace entries are written to the 
CICSA^S Trace Table or auxiUary 
trace data set. 

4. 


DLZOLTOO 
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Extended Description 


Routine 
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Figure 
2-6.3 or 
2-6.6 



7. Save registers and establish 
addressability. 



8. Convert reason for scheduling 
termination to character code. 



9. Write trace entry. 

^■V DFHTRACE DLI 

^10. Reset trace flags and restore 
caller's registers. 

11. Return to caller. 



DLZOLTOO — Online Trace Entry Routine 
uExtended Description 



V^ I UIBTRCSV I 



I 

s 



I UIBFLAG1 



Routine Label 



Extended Description 



7. 


■ 


DLZOLT02 




hi 
I 



I 
ON 



^ 



O 



<fi. 



t 



Figure 2-6.9. Online Wait Routine (DLZOWAIT) (Part 1 of 3) 



Figure 2-6.9. Online Wait Routine (DLZOWAIT) (Part 2 of 3) 



SCD 


TCA 


ISCDCSABA 


J JTCASYAA 1 


CSA 


PST 


IcSACDTA 





SCD 


PDCA 


ISCDPDCA 


IPDCADECB 1 




SCD 


PST 


SCDEXTBA 


Ipstcodei I 


SCDDBLOP 




SCDEXT 


ISCDESECB 





n 



I :, 



]_ — ^ 



1. If CM F hook request, go to Step 8. 
If suspend request, go to Step 11. 
If resume request, go to Step 13. 



2. Save registers and establish 
addressability. 



3. If ECB is not posted, indicate task 
not 'currently active' and issue 
CICS/VS I/O wait. 



4. Wait for formatted dump if buffers 
are being dumped. Return to Step 3. 



dfhkctype=wait 



5. Wait for the logger if the log 
is open and busy. 



DFHKC TYPE=WAIT 



^ 6. Check if DL/I abnormally 
terminated. 



DFHPCTYPE=ABEND 
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DLZOWAIT - Online Wait Routine 



Extended Description 



2. Routine identifier (DLZOWAITvmp) 
is defined here . The level format is 
vmp; where V is the version, 'r' is 
the release, 'n' is an additional 
identification number, and 'p' is the 
latest PTF number that has been 
appUed. 

3. A non-scheduling task is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL,password) to 
schedule itself so that it may issue 
system calls: CMXT, STRT, STOP, 
TSTR, and TSTP. 

'Currently active' has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 

(non-scheduling calls being calls 
processed by the call analyzer and 
other DL/I action modules). Since 
CICS/VS can schedule another DL/I 
task during a CICS/VS operation 
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Extended Description 
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(for example, I/O) PPSTACT is turned 
off until return is made to the caller of 
DLZOWAIT because there can only 
be one task marked as 'currently 
active' by definition. 

5. Serialization of the logger resource is 
another job of the online nucleus. 
Since control was lost during the 
wait, another job may have activated 
the logger. To assure seria:iization, this 
routine must wait until the logger is 
done. Return is then made to Step 2 
to recheck that this task's ECB is 
posted and to reissue the wait again 
if it isn't. 
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Figure 2-6.9. Online Wait Routine (DLZOWAIT) (Part 3 of 3) 
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Figure 2-6.10. 














VSAM 











SCD R1 1 


IKQIOA 

^ 1. Establish environment. 




IsCDCSABA |r 






VSAM ' 


R13 






CSA L 


>SA 1 




TCA 


RPL 
Address 




2. Start CMF I/O wait cloclt. 

^■1^ DFHEMPTYPE=ENTRY 




jSystemTCA | 




Itcasyaa 1 


CCB 
Address 




R12 






EXLOC 
Address 


|tCA User Area | 




















TCA PST 1 




PPST 


SCD 1 




TCADLII 


|PSTPREAD j 




Ippstind 


IIscdcdta I 1 






Parameters 




not 'currently active' and issue 
CICS/VS wait. 

MBI^ DFHKCTYPE=WAIT 




TCA 




CCB 
Address 


|tcatcea 1 












>TCA 

|tcatcea 


] 








SCD SCDEXT 1 




SCDEXTBA 


ISCDESECB 1 










: 


is open and busy. 

^■■^ DFHKCTYPE=°WAIT 

5. Stop CMP I/O wait clock. 

^■^ DFHEMPTYPE=ENTRY 






SCDDBLOP 


















TCA 


. PPST 


SCD 




1 TCADLII 1 ■ 


^ 6. Return to VSAM. _. 


"I 

To VSAM 
Module 
IKQIOA 


Ippstind 


1 1 SCDCDTA 1 






1 , 







DLZOVSEX - VSAM Asyncronous Exit Processor 
'' Extended Description Routine 



Extended Description 
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1 . Routine identifier (DLZOVSEXvmp) 
is defined here. 

3. A non-scheduling tasl( is a task that 
does not issue the special scheduling 
call (PCB,SYSTEMDL,password) to 
schedule itself so it may issue system 
calls: CMXT, STRT, STOP, TSTR, 
and TSTP. 'Currently active' has a 
special meaning. There may be many 
DL/I tasks active at this time. There- 
fore, DL/I uses a bit (PPSTACT) in 
the PPST to make it easy to spot (in 
a dump) the single DL/I task that is 
currently using the call analyzer and 
other DL/I action modules. 

Since CICS/VS can schedule another 
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off until return is made to the caller 
of DLZOVSEX because there can only 
be one task marked as 'currently 
active' by definition. 
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wait another job may have activated 
the logger. To assure serialization, this 
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Figure 2-6.11. Online Error Message Routine (DLZERMSG) (Part 2 of 2) 
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DLZERMSG — Online Error Message Routine 
Extended Description 



1 . Routine identifier (DLZERMSGvmp) 
is defined here. The level format is 
vmp, where V is the version, 'r' is 
the release 'n! is an additional 
identification number, and 'p' is the 
latest PTF number that has been 
applied. 

2. If there is no PST the message number 
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pointed to by Rl . 

3. 'Currently active' has a special mean- 
ing. There may be many DL/I tasks 
active at this time. Therefore, DL/I 
uses a bit (PPSTACT) in the PPST to 
make it easy to spot (in a dump) the 
single DL/I task that is currently 
processing non-scheduling DL/I calls 
(Non-scheduling calls being calk 
handled by the call analyzer and other 
DL/I action modules). 
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Figure 2-6.12. Online Get Storage Routine (DLZODP10) 
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Extended Description 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 1 of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 2 of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 3 of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 4 of 7) 
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Figure 2-6.14. Common PSB Scheduler ( 


DLZCOMOO) (Part 5 Of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 6 of 7) 
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Figure 2-6.14. Common PSB Scheduler (DLZCOMOO) (Part 7 of 7) 
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Figure 2-6.15. 


Data Base Call Handler (DLZCOMOI) (Part 1 of 6) 
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Data Base Call Handler (DLZCOMOI) (Part 2 of 6) 
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Figure 2-6.15. Data Base Call Handler (DLZCOM01) (Part 3 of 6 
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Data Base Call Handler (DLZCOM01) (Part 4 of 6) 
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PPSTIND 




PPSTACT 
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Figure 2-6.15. 


Data Base Call Handler (DLZCOM01) (Part 5 of 6) 












urjruTL 


PST 


, 1 


► 27. If ABEND requested, go to 
Step 5. 








pstabind 


psttabnd 


pstsabnd 






1 


PST 1 


^ 28. If error on local CHKP set status 
In user's RGB and go to Step 5. 


-1 




1 




PSTPCT2 


n 






PSTCHKP 


. 29. Substitute remote PSB address 
in PST parameter list and issue 
CICS/VS sync point. 


PSTLIPRM 




Idbpcbjcb I 




DBPCB 


(dbpcbjcb j 


PST 


Ipstrpsta I 


RPST 


^-^ 






DLZODP05 




Irpstrpcb 1 


Sync point 

exit routine 
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PST 








1 PSTSV2 1 - 


used, release PI resources. 

^■1^ DLZPUR 




1 




SCDDPMPS 


SCDPI 


PST 


j PSTRPSTA 1 






PPST 


^ 31. If not an MPS task, reset CHKP 
indicator. 


J 


PST 






PPSTIND 






^ PSTPCT2 




PPSTMPS 


1 




PSTCHKP 








PST 






PST 


^ 32. Point PST to remote PSB and 
reschedule remote PSB. 


J 






PSTRPSTA 1 


f 






"Ipstpsb 1 






RPST 


♦-► 








rpstrpsb 1 


DLZISC03 








ISC Checlcpoint 
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uib 


^ 33. If error, zero PCB address 


ist 




UIB 
^[UIBRCGDE 








» 


and go to Step 5. 

34. Zero JCB address of remote PCBs 
and go to Step 5. 






juiBPCBAL 




DBPCB 






rpstrpcb 1 






^ Idbpcbjcb 1 












PDCA SCD 


. 35. Wait if buffers are being dumped 
or logger is busy. 






j SCD 


1 pdcadecb I 


SCDPDCA 




N 


H ISCDCDTA 1 


PST 


scdesecb 


PPST 


1 PSTSV1 1 




>-► 






PPSTIND 






SCDDBLO 


dlzowait 




1 1 


scdextba 
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JPSTCODEI 


. 36. Set active task indicators. 


Ipstscall 








1 




1 



Figure 2-6.15. Data Base Call Handler (DLZCOM01) (Part 6 of 6) 
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UIBFLAG1 


PSTPSB 




UIBXRPSB 


PSTSV1 


SCD 


PSTRPSTA 


JSCDDLICT j 


PSTLIPRM 


RPST PDIR 1 


Irpstxpsb 1 


PDIRXPSB 








PST 




PSTUSER 




r- 
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PSTSEG1 


Ipstseg 




UIB 




UIBFLAG1 


UIBMPS 




PST 




PSTBLKNM 


PSTLIPRM 







w 37. Point PST to local PSB and pass 
call to Call Analyzer. 






OUTPUT — 

PST 




^4 


DLZDLAOO 






> 


PSTPSB 




Call Analyzer 
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PSTIQPRM 








• 38. If not MPS task, move data to 




User I/O Area 






M 






, user's I/O area. 
39. Return to caller. 




1 

Caller 


PST 










► 


PSTBLKNM 




in PST work area and set up 






+4 


data move parameters. 


PSTUSER 


PSTSEGL 


PSTSEG 


PSTIQPRM 


41. Go to Step 38. 
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DLZCOM01 - Data Base Call Handler 



Extended Description 



DLZCOM01 - Data Base Call Handler 



O Extended Descripti( 
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35. 




DBANLYZ 



Extended Description 


Routine 


Ubel 
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Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 1 of 4) 
p INPUT ■«MM>--«->i>ai>«^ r PROCESS i...Mi,i.^_i— 



PDIRCODE 


SCDDBMPS 


PDIREXC 


SCDPI 










PDIRUPD 





1. Save caller's registers. 

> 2. If PSB in conflict with itself, 
go to Step 15. 



i; > 



3. If the required Di\AB is held 
exclusively, suspend task. 



Suspend for 
Intent conflict 



4. If the required DMB is stopped, 
set up scheduling error. Go to 
Step 12. 



5. Check for intent conflict with 
higher priority tasks that are 
suspended for intent conflict. 



SCHDCKNT 



I- OUTPUT- 

PST 



^ 1 PSTSV1 I 



SOD UIB 1 


SCDCMTI 


1 UIBICOOE 1 


SCDSIND 









Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 2 of 4) 
pi INPUT MiBii^-^^— Mi^ r PROCESS Mi— — ^M 



DLZLOCOO - Local PSB Scheduling Routine 
Extended Description 



Extended Description 



3. 

4. ErrorretrunedisX'OCOr 
(DB stopped). 




SCHDCKSI 




PCB 



DMB 



PCPENP 



I DMBFSDB 



6. Check for intent conflict with 
scheduled PSBs. 



SCHDCKNT 



> 7. Reset intent conflict flags, set DMB 
exclusive use count, and set update 
use count. 



^ 8. If PSB must be duplicated, duplicate 
the PSB. 



> 9. Schedule the PSB. 



10. Connect segment descriptor blocks 
(SDB) to physical SDBs. 



DDIRCNT 


SCDNTWC 




SCDSIND 


DDIREXCL 
DDIRPPST 


SCDTWFI 
PPST 




PPSTIND 




PPSTSI 




DLZLOCOO - Local PSB Scheduling Routine 
Extended Description 



8. 




SCHDCKSI 



Extended Description 



Routine Label 
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Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 3 of 4) 



Figure 2-6.16. Local PSB Scheduling Routine (DLZLOCOO) (Part 4 of 4) 



m INPUT ■ 



] 3 



DDIR 




PPST 


1 DDIRPPST 




PPSTIND 


POIR 


PPSTNSDL 


PDIRADDR 




PPSTSI 


PDIROPTC 


PSB 


PDIRSCHD 


1 PSBPST 1 




1 


1 SCDNTNC 









r PROCESS ■ 



> 11. Set hashed task ID in PST 
and increment. 



::^ 12. Restore entry registers. 
13. Return to caller. 



14. Segment intent check 
subroutine. 



h 



A. Compare segment intent 
bits for indicated 
PSILs. 



B. If a conflict is detected 
go to Step 15. 

C. Restore registers. 

D. Return to caller. 

15. Task SUSPEND subroutine. 



A. If task is in conflict with 
an MPS task, set up 
scheduling error. Go to 
Step 12. 



DLZLOCOO - Local PSB Scheduling Routine 
Extended Description 





SCD PPST 1 1 


SCDEIDNX 


I PPSTIND 1 1 


SCDNAVID 


PST 


Ipsttskid |{ 


> |PSTSV2 1 


SCD PPST 1 


SCDNTWC 


PPSTIND 


SCDSIND 


PPSTSI 


SCDTWFI 


UIB 




1 UIBICODE I 






1 



1 CSASCNAC 1 


PDIRLEN 


SCD 


PDIRPSBL 


I SCDPDUP 1 


PDIRZWA 



PSBNDXWK 



■■ PROCESS ■ 



B. Start measuring time suspended for 
intent confiect and suspend task. 



DFHEMPTYPE=ENTRY 



DFHKC TYPE=SUSPEND 



C. Stop measuring time suspended for 
intent conflict and go to Step 2. 

16. Create Duplicate PSB subroutine. 

A. Acquire storage for duplicate 
PDIR, PSB, and work areas. 



Online storage 
acquisition 
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B. Copy original contents of PDIR and 
PSB into duplicate locations and 
relocate pointers. 

C. Return to caller. 



I SCDPDUP "^ 



PDIR PSB 1 


PDIRADDR 


PSBIOAWK 


PDIRCODE 


PSBSEGWK 


PDIRDUPL 


PSBXIOWK 


PDIROPTC 


PST 


PDIRSCHD 


JPSTPSB 1 
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Extended Description 



Routine Label 



DLZLOCOO - Local PSB Scheduling Routine 
Extended Description 



Routine Label 



Extended Description 



12. 

14A. 

15A. 




LOCEXIT 

SCHDCKNT 

SCHDSUSE 



16. 

1 6B. For read only or update with 
program isolation. Duplicate 
PSBs are identified by the PDIR 
indicator PDIRDUPL. 




LOCDUPL 
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Figure 2-6.17. Unschedule Local PSB Routine (DLZLOC01) (Part 1 of 2) 
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SDBEND 


PDIRSILA 




SDBNSDB 


PDIRADDR 


SDBPSDB 



f^2. Update hashed task ID. 



> 3. Reset intent conflict flags, exclusive u 
count, and update use count. 



Unschedule local PSB 
Save caller's registers. 



4. Unchain SDBs. 



PDIR SDB 1 


PDIRCODE 


ISDBNSDB I 


POrRTFAL 









I Figure 2-6.17. Unschedule Local PSB Routine (DLZLOC01) (Part 2 of 2) 
p INPUT ■MHB^^^HB— p PROCESS — — 



DLZLOC01 - Unschedule Local PSB Routine 
Extended Description 



Routine Label 



2. The lowest active identifier is 
maintained in the SCD. DL/I 
Space Management uses the low 
and high identifiers to exclude 
fi:ee space belonging to active 
tasks fi-om reuse. 

3. 

4. DB stopped. 

PDIRCODE=X'0C01'. 




OVERIDl 
TRIDEXIT 




CSASCNAC "I PDIRCODE 
PDIRDUPL 



^ 5. Free duplicate PSB. 



. _ _^ 6. Restore entry 
7. Return to caller 



} DFHSCTYPE=FREEMAIN 



PDIR 


TCA 


PDIROPTC 


TCASCSA 


PDIRSCHD 


TCASCTR 



DLZLOC01 - Unschedule Local PSB Routine 
Extended Description 



Routine Label 



Extended Description 



Routine i^bel 
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Figure 2-6.18. Remote PSB Scheduling (DLZiSCOO) (Part 1 of 2) 
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Itwaxcbin 1 


SCD 


UIB 


1 SCDUPPER 


luiBFUNC 1 


TCA 


XCB 


j TCADLIBA 1 


JXCBIHIGH 1 


1 



Figure 
2-6.14 



PSB scheduling routine 

1 . Build parameter list for scheduling call. 



2. Initialize remote interface block (RIB). 



3. If ISC module is available, start 

measuring time in remote system. Go to 
CICS/VS ISC. 



DFHEMP TYPE=ENTRY 



CICS/VS ISC 
module 



4. If schedule call was not successful, stop 
measuring time spent in remote system. 
Go to Step 6. 



DFHEMP TYPE=ENTRY 



V^ I PSTSV1 I 



DLZISCOO - Remote PSB Scheduling 
Extended Description 



I 



I 

O 

O 



I 



1. RPSTISC1=(X'00') 
RPSTISC2=A(RIB) 
RPSTISC3=A (User FARM Ust) 
RPSTISC4=A (PDIR entry) 

3. 




ISCBALR 



Extended Description 


Routine 


Label 









Figure 2-6.18. Remote PSB Scheduling (DLZiSCOO) (Part 2 of 2) 

I INPUT MHH-iM->«— ^^ ■■ PROCESS «»-^-i^— 



SCDERRMS 



> 5. Return remote PCB address list and 
return code to caller. 



6. Remote scheduling errors. 
A. Set up return code. 



B. If serious error, request ABEND 
after message. 



C. Write message. 



DLZERMSG 



C 



PST 




RIB 


PSTABIND 




RIBDLTR 


PSTERDTL 


RIBFCTR 


PSTTABND 




TCA 






TCADLII 




TCADLISE 









:(S PSTERCOD 
PSTSV2 
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DLZISCOO - Remote PSB Scheduling 



Extended Description 



Routine Latiel 



Extended Description 



6A. ABEND ifPARM list is invaUd, 
function is invalid, XECB cannot 
be found, PSB cannot be 
rescheduled following a check- 
point, or internal enor. 

6C. Write message DLZ033I. 




ISCNOMOD 
ISCRIBER 
ISCTCAER 

ISC033I 
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Figure 2-6.19. Remote Data Base Call Routine (DLZISC01) (Part 1 of 2) 



PSTLIPRM+4 I JRIBPCBAL | 



r> PROCESS ■ 



> 1 . Build parameter list for data base call. 



Remote data base call 
processing. 



2. Initialize remote interface block (RIB). 

> 3. Compute PCB index. 
4. If PCB address is invalid, go to Step 10. 



• — — » 5. Start measuring time in remote system. 
Go to CICS/VS ISC module. 



I DFHEMPTYPE=ENTRY 



: ^ 6. Stop measuring time if call was not 

successful. Go to Step 10B. 



DFHEMPTYPE=ENTRY 



DLZISC01 - Remote Data Base Call Routine 
Extended Description 



1. RPSTISC1=A(X'04') 
RPSTISC2=A(RIB) 
RPSTISC3=A(User 
FARM 
Ust) 
RPSTISC4=A(PDIR 
entry) 

3. 

5. 


OVERIDl 

ISCINDEX 
ISCBALRl 





■^ 



PST 




RPST 


JPSTSVI 




RPSTISC1 




RPSTISC2 






RPSTISC3 


RIB 


RPSTISC4 


RIBISCO 1 












Figure 2-6.19. Remote Data Base Call Routine (DLZISC01) (Part 2 of 2) 
• INPUT MnB-M-ii-^— >i>^ ■■ PROCESS 



RIBIOAWK PSTLIPRM+4 
RIBISC I PSTLIPRM-I^ 



7. If call was not an MPS call, move data : 
into user's lOAREA. 



8. 


Return code. 




9. 


Return to caller. 


10. 


Remote data base call errors. 




A. Write message. 






DLZISCOO 




ISC033I 
write message 
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B. Abnormally terminate task. 



C. If function is invalid, return 'AD' 
status in PCB. 



D. Write message. 



E. Abnormally terminate task. 



I 



5C 



PST 


DBP 


PSTABEND 


1 DBPCBST 1 


PSTERDT1 




PSTTABND 





Extended Description 


Routine 


Label 









DLZISC01 - Remote Data Base Call Routine 
Extended Description 



Routine Label 



Extended Description 



8. 

10 A. Write message DLZ476I. 

lOD. Write message DLZ033I. 
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Figure 2-6.20. Remote Termination Call Routine (DLZiSC02) 
p INPUT ^B>»— »■ 



TCAZLUWT 



[SCDCSABA ~| CSADISAC 
CSAOPFLA 



1. Build parameter list for TERM call. 



' 2. Set sync point requirement flag. 



3. Start measuring time spent in remote 
system. Go to CICS/VS ISC module. 



iDFHEMP TYPE=ENTRY 



4. Stop measuring time spent in remote 
system. Return to TRMFREPP in 
DLZODP. 



X 



C>E 



DLZISC02 - Remote Termination Call Routine 



(.Extended Description 



Extended Description 



Routine Label 
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1. RPSTISC1=A(X'08') 
RPSTISC2=A(RIB) 
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Figure 2-6.21. Remote Rescheduling Routine (DLZISC03) (Part 1 of 2) 



Figure 2-6.21. Remote Rescheduling Routine (DLZISCOS) (Part 2 of 2) 
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CSADISAC 


1 scdcsabaI 


CSAOPFLA 
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Checkpoint call. 

1. Write DL/I checkpoint taken 
message. 



2. Build parameter list for 
scheduling call. 



8. Indicate sync point not requested 
and checkpoint call in progress. 



4. Go to CICS/VS ISC module. 



5. Build parameter list for 
reschedule call. 



CSADISAC — 



I PSTSV4 



: ^ 6. Start measuring time spent in remote 

system. Go to CICS/VS ISC module. 



DFHEMPTYPE=ENTRY 



CICS/VS ISC 
Module 



>,7. Stop measuring time spent in remote 

system. Reset checkpoint indicator if no 
checkpoint error. 



8. Return to caller. 



9. Set error code if checkpoint error occurs. 



Write message 
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10. Abnormally terminate task. 



PST RIB 1 


PSTSEG 




RIBCHKP 


PSTSEGL 




RIBISC 


UIB 




1 UIBICODE 
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DLZISCOS - Remote Rescheduling Routine 
Extended Description 



1 . Write message 
DLZ105I. 

2. RPSTISC1=A(X'08') 
RPSTISC2=A (RIB) 

5. RPSTISC1=A(X'00') 
RPSTISC2=A(RIB) 
RPSTISC3=A (CHKPSCHD) 
RPSTISC4=A (PDIR entry) 

CHKPSCHD is: 

DC X'80' 

DC AL3 CPCB ') 








DLZISCOS - Remote Rescheduling Routine 
Extended Description 



Routine Label 



9. 




ISCKPERR 



Extended Description 


Routine 


Label 
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Figure 2-7. DL/i Online System Termination (DLZSTPOO) 



Figure 2-8. Call Analyzer (DLZDLAOO) 









CSAOPFLA 


CSADLI 







■> PROCESS ■ 



From 

CICS/VS 

STP 



1. Locate entry point of DL/I 
termination. 



2. Call DL/I termination. 



3. Return to CICS/VS system 
termination program via 
DFHPC TYPE=RETURN. 



DLZSTPOO - DL/I Online System Termination CSECT 
Extended Description Routine 



I 

a 
S, 
O 

1 



1. Control is passed from CICS/VS 
System Termination Program (STP) 
because of DLZSTPOOs presence in 
the program Ust table (DFHPLT). 


DLZSTPOO 


DLZSTPOO 












R1 R13 




JPST-ADDR 1 


1 




Ipstiqprm 1 








Parameter - 
List 









Function 




PCB-ADDR 


I/O AREA 


SSAs 













From Caller 
(See Note) 




f 








■> 


R13 PSTSEG 
1 I PSTSEG L 


- —— — — 


► 1. Save reaisters and initialize. 




► 2. Encode function: 

A. Normal Function - 
Figure 2-8.1. 

B. Pseudo function — 
Figure 2-8.3. 

3. Update JCB trace and PCS 


















.. 










JCB R13 








> 


1 1 1 1 

PCS 

1 1 




length. Restore registers. 


. Return to 
> Caller 















[ 



i 



DLZDLAOO - Call 



Extended Description 



Extended Description 



Note: DLZDLAOO is called from the 
program request handler (DLZBNUCO- 
DLZPRHBO) in a batch system, from 
(DLZODP-DLZPRHOO) in an online 
system, or if at termination, it is called 
from either the application program 
control (DLZRRCOO-DLZPCCOO) or 
from online task termination 
(DLZODP-DLZODPOl). It is also 
called from DLZDXMTO. 

2. ITie function (first parameter in list) 
is encoded. If no vaUd function is 
found, 'AD' status is returned. 

Normal functions are GU, GN, GHN, 
GHU, GNP, GHNP, DLET, REPL, 
ISRT,ASRT,andCHKP. 

Pseudo functions are GSCD, UNLD, 
and TERM. 
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Figure 2-8.1. Call Analyzer - 

■I INPUT I 




Normal Function (DLZDLAOO) 
r- PROCESS ■ 

From Fig. 



1. Validate PCB address. Update 
JCB and level table. 



2. Find user's I/O area. 



> 3. CHKP Function: 



A. If log not active, return 
to caller. 

B. Unload Routine: 
Figure 2-8.3. 

4. Validate SSAs: 
Figure 2-8.2. 

5. Perform key checking for loading. 
8. Validate sensitivity. 

7. Check length for variable length 
segments. 

8. Call DLZDLOCO to open data sets. 
A. If at least one segment has field 

level sensitivity, call DLZCPY10 
(Figure 2-40). 

9. Call proper action module 
(DLZDLROO, DLZDDLEO, or DLZDLDOO). 




Figure 2-8.2. Call Analyzer 

p INPUT Mii-i—^— ^^^— 



DLZDLAOO - Call 



Extended Description 


Routine 


Label 


1. 


If no valid PCB address is provided, 
abend code '476' is returned. Tlie 
JCB and PCB are updated and the 
second part of the level tables 
cleared. 




TESTPCB 
VALIDCK2 
DBPCBFND 
GETJCB 


2. 


If no I/O area is provided, 'AB' 
status code is returned. 






3A. 


If log is not active, return to caller 
with 'XH' status code in the PCB. 
The function call is ignored. 






3B. 


Purge all buffers. 


DLZDLAOl 


DLBUNLD 


4. 


All SSAs in the caU are checked. 




SDBLOOP 
SDBLOOPl 


5. 


Key checking is done for load mode 
and the last SSA of an ISRT call. 
For PROCOPT=LS and for HISAM, 
the root key is compared to the 
previously loaded root. Status code 
'LB' indicates invalid sequence. 




LDCHCK 


6. 


Sensitivity checking is done for 
ISRT, DLET, and REPL calls. 
Violations return 'AM'. Extra 
checking is done for DLET and 
REPL calls, if successful GH caU 
was executed before 'DJ' status. 




N0TL0AD7 
FSTDATAL 
ISREPL 
TSTISRTS 



Extended Description 


Routine 


Label 


7. For variable length segments, 2-byte 




DOVLTST 


field in the user I/O area is compared 






to the maximum length and to the 






key+ keyoffset. If it is greater or 






smaller, 'VI ' status is returned. 






8. When the data base that the PCB 




ANYSEN 


references is not op«!n, DLZDLOCO 






is called to open all data bases 






related to this PCB. 






A. If field level sensitivity indicator is 






set, exit is made to DLZCPYIO to 






map the user view to the physical 






view. Only done if ISRT, REPL, or 






Retrieve (called on behalf of ISRT) 






action modules will be executed. 






9. For GET calls, DLZDLROO is called. 




ACTION 


For DLET/REPL calls, DLZDLDOO 






is called. For ISRT/ASRT calls in 






load mode, DLZDDLEO is called 






for all segments except for fflDAM 






root, where DLZDLROO is called. 






For ISRT not load mode, 






DLZDLROO is caUed for all 






segments except HISAM root. 






where DLZDDLEO is caUed. 








Validate SSAs (DLZDLAOO) 

m Fiaure f" PROCESS ^— ^ 






) 



— 1— ^ 



1. Find SDB corresponding to SSA. 



A. If SDB has field level sensitivity, 
set indicator in JCB. 



2. Find corresponding level table. 



3. Fill pseudo entries for gaps in 
SSAs. 



4. Fill level table with data from 
SDB. 



5. Validate command code. 



6. For qualified SSAs: 
Figure 2-8.4 (Part 3 of 3) 




Figure 2-8.1 
Steps 



DLZDLAOO - Call 



Extended Description 


Routine 


Label 


1 . When the segment named specified in 
the SSA cannot be found in the SDB, 
- 'AC status is returned. 




SDBLOOP 


A. Flag SDBFLS is on in field SDBXFL 
if SDB has field level sensitivity. 
Flag JCBFLS is set on in field 
JCBLVT to indicate at least one 
segment in call has field level 
sensitivity. 




SSASDBEQ 


2. When a hierarchy error is detected, an 
'AC status is returned. 




GETLEV 
RIGHTLEV 


3. The levels corresponding to gaps in the 
SSAs are filled with data fiom the 
previous call. For loading, no parent 
level may be empty. 'LD' status is 
returned. 






4. Extra checks are made for DLET and 
REPL calls. When no GH call was 
previously made for this SDB, a 'DJ' 
status is returned. 







Extended Description 



5. VaUd command codes are C, D, F, L, N, 
Q, T, U, V, and X. The status code for 
invalid command code is 'AJ'. For D 
call and no path sensitivity, the status 
code is 'AM'. 
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Figure 2-8.3, Call Analyzer - Pseudo Function (DLZDLA01) (Part 1 of 2) 



■ INPUT 


Parameter 
List 






function 






I/O area 










PSTPSB 




PDIRADDR 


PSBLIST 


PSBCODE 




R13 






1 1 
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1. For a GSCD call, provide address 
of PST and SCD. 



2. For an UNLD, TERM, or CHKP call, 
process all PCBs in PSB and: 

A. Call DLZDDLEO for load. 

B. Clear flags and pointers. 

C. Call DLZDBHOO to purge 
buffers. 

D. For a CHKP call, go to Step 4. 

E. For an UNDL call, DLZDLOCO is 
called to close data bases in 
system (PSTOCALL). 



I ; ^ 3. Restore registers. 



DLZDLA01 -Call 
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Routine 


Label 


1. Input to the GSCD call is function 
and I/O area address. DLZDLAOl puts 
the SCD and PST addresses in 
PSTBLKNM.Program request handler 
moves it to the I/O area. 




PSEUDOCA 


2. The TERM call is issued in online to 
end a task. The UNLD call is issued in 
batch to end the batch program. 




DLBUNLD 
UNLDLOOP 


A. If the UNLD call is made for load 
mode, DLZDDLEO is caUed to 
write the last records for HSAM 
and HISAM. For HISAM and 
index data bases, a record is 
written with FF keys. 






B. Flags and pointers are cleared 
so that the PSB can be used by 
another task. If program isolation 
is active, clear all enqueue indi- 
cators in all level table entries. 






C. All user buffers are written to 
the data base now. RSTBLKNM, 
DMBNM, and ACBNM are 
cleared. PSTPGUSR flag of 
PSIFNCTN is set. 







Extended Description 




Figure 2-8.3. Call Analyzer - Pseudo Function (DLZDLAOl) (Part 2 of 2) 
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4. For a CHKP call, get 
address of DDIR and 
number of entries. 



If error occurred during 
buffer purge, go to 
Step 4H. 

If log is CICS journal, 
go to Step 4E. 



C. Build the log checkpoint 
record. 



D. Get address of DL/I Logger. 



E. Set checkpoint indicator. 

F. Set PCB status code. 

G. Return to Step 3. 

H. Set PCB error status code. 

I. Return to Step 3. 



DLZDLAOl - Call 
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i 



. If an error occurs during the purge 
of the buffers, an 'XD' status code 
is returned in the PCB. 






Routine 


Label 


4. A. 


All DDIR entries are scanned to 
see if an error occurred (bit 
DDIRNOSE X'04' in byte 
DDIRCODE set on) during purge 
of the buffers. 




DDIRCHK 


B. 


If the log is the CICS journal, 
checkpoint record is not written, 
but a CICS synch point is. 




DDIRCHKl 


D. 


The DL/I Logger is entered 
twice; 1st to move the check- 
point record to its buffer, and 
2nd to force-write the check- 
point record. 






E. 


On return from the logger, the 
checkpoint indicator (bit 
PSTCHKP X'04' in byte 
PSTPCT2 is set on) to notify 
the program request handler to 
issue the checkpoint message. 




BYPASSCK 



Extended Description 


Routine 


Label 


F. Status code of 'blanks' is set 
in the PCB indicating successful 
completion of the CHKP call. 

H. Status code of 'XD' is returned 
in the PCB indicating an error 
occurred during checkpoint 
processing. 
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Figure 2-8.4. Call Analyzer 
■■ INPUT *■— ^— ^^ 



PSDB PDB 



Validate Qualified SSAs (DLZDLAOO) 

From Figure F PROCESS ■ 
2-8.2. (Part 1 
of 2) Step 6 



1. For qualified SSAs. 
A. If SDB indicator set for field level 
sensitivity, find FSB corresponding 
toSSA. 



B. Find FDB corresponding to SSA. 

C. Encode operator. 

D. Load Mode: compare key in SSA to 
key -feedback. 



W 





OUTPUT^ 

Level Table 
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LEVF3 




LEVMEMBR 




Level Table 
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LEVMEMBR 





DLZDLAOO -Call 



Extended Description 



1. For errors in qualification, format 'AJ' 
status is returned. 

A. Flag SDBFLS is on in field SDBXFL if 
SDB has field level sensitivity. If an 
FSB is not found, or if the FSB is not 
marked as an allowable field, status 
code 'AK' is returned in PCB. 

B. Valid field names are any normal field 
of the segment, the XDFLD name 

(if the secondary processing sequence 
is used). For a concatenated segment 
field, names of the logical child and the 
destination parent are valid. 'AK' 
status for invalid field name. 'AC 
status if /CK or /SX is used. 

C. Invalid operator returns status code 
'AJ'. 

D. If qualified SSAs are specified for 
loading, the key has to correspond to 
the key-feedback area, otherwise 'LD' 
status code is returned. 




NXTBOOL 
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Figure 2-9. Retrieve (DLZDLROO) (Part 1 of 2) 
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'1. If unqualified call, go to step 3. Other- 
wise, go to Figure 2-9.1 to try to use 
previous position. 



'2. If GU with unqualified root, go to 
Figure 2-9.4 to determine start key for 
searching. Otherwise, go to Figure 2-9.5 
to analyze qualified calls and continue 
at step 5. 



•3. If not a GN, go to step 4. Otherwise, do 
unqualified GN call analysis and continue 
at step 5. 




- >4. Get first DB segment. 






Extended Description 



1. I/O information: 

• The Position block includes RBA of 
segment (HD) or Irec (HS), RBA of 
previous and next positions (HD), 
offset to segment from begin Irec 
(HS), concatenated key, level, block 
number (HSAM), and block number 
and RAP number of current RAP 
(HDAM). RAP = root anchor point. 

• The DB/PSB Description block 
includes segment and data set 
descriptions, data base specifications, 
sensitivity, and HDAM randomizing 
facility. 

• The Status Information block includes 
prior status codes, segment status, 
and (for output) pseudo abends 

(801 and 800). 

• The Call Information block includes 
SSA and call type. 

• Processing starts with initialization. 
Level of previous call stored in 
LASTLEV. 




LTWSSA 



Extended Description 



DLZDLROO 

Routine 



Figure 2-9. Retrieve (DLZDLROO) (Part 2 of 2) 

INPUT I *■ PROCESS ■ 



DB/PSB 
Descrip. 


Position 


PSBDB 


LEV 


SDB 


SDB 


FDB 


DBPCB 


DMBSEC 


DSG 


DSG 


Status 
Info. 


DMB 
Prefix 


JCB 
Prefix 


JCB 
Prefix 


SDB 




LEV 



5. For ISRT calls: 



A. Determine positioning 
and move segment to user. 



B. Call DLZGETS (Fig 2-9.7) 
to make retrieved data 
available to user. 





SDB 
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for insert, 
SUBPOSC, 
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DLZDLROO- Retrieve Module 
Extended Description 



5. DLZSSA is called, if necessary, to find 
insert position for key. Control is then 
passed to DLZISRT to prepare position 
information in the SDB for INSERT. 
Return is to DLZGETS (Figure 2-9.6). 

PSTSEG is address of data, PSTSEGL 
gives its length. 

For IRST calls, DLZGETS does only 
housekeeping (no data moving). 
DLZGETS will pass control to 
DLZRETN and DLZDLRl to exit. 

For a segment with logical relationship, 
DLZGETS will call DLZLOGR for 
data move/insert positioning. 

6. If call type is GET, go to Analyzer. 
If it is ISRT, go to Load/Insert. 
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Figure 2-9.1. Retrieve - DLZLTW Routine (DLZDLROO) 



Figure 2-9.2. Retrieve - DLZKDTE Routine (DLZDLROO) 
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call 

info. 











■■ PROCESS - 



1. Set KEEP[T=1. 



2. Check previous call's hierarchical 
path against SSA's. Loop through 
levels. Check segment type, and for 
qualified SSA, check key feedback area 
(Figure 2-9.2). 



3. If path is accepted, locate previous 
segment (Figure 2-9.3), set KEEPIT=0, 
and go to step 6. 

4. If discrepancy at root level, set 
KEEPIT=0 and go to step 6. 

5. If discrepancy at lower level, set 
KEEPIT=0 and go to step 6. 

If GIM call, position to previous 
segment. 




General Segment 
Info. Info. 


JCB 
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FDB 
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Value 


Segment 
Data 


R9 = 
LEVSSA 
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Rel. 
operator 


R15 = 
LEVMEMBR 
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1. Find FDB for SSA field. If 
found, continue with step 2. 
If not found, set status code 
AK (error In call) and return. 



2. If KEEPIT=1, use key feedback 
area to test against field 
value in SSA. Otherwise use 
segment. 



3. If necessary turn on LEVSTOP. 




4. Test segment or key feedback 
area for acceptance. 



DLZDLROO - Retrieve Module 





Routine 


Label 


1. KEEPIT=1 indicates: try to use 

previous position. KEEPIT=0 indicates: 
DLZLTW has been left. Other values 
have special meanings. (Entry point 
when Rl 5 = 0.) 




LTWSSA 


2. DLZKDTE is invoked via DLZSSA which 
is called by return to DLZDLRO and 
back to DLZLTW. Logically, this is part 
of DLZLTW as indicated by KEEPIT=1. 






Qualified SSA test: After entering 
several routines, return to DLZLTW 
entry LTWSSACA, LTWSSAF, or 
LTWSSAG. 




LTWSSAQ 


Lowest level found valid is stored in 
JCBLEVIC. 




LTWSSACA 


3. Set code for exit: Entry UNQLA in 
DLZSSA for GU or ISRT, entry 
SSAEVALHforGN. 






DLZPCHK loads buffer location of 
previous segment into register 6 (except 
for HD or GN calls) and, for HD, loads 
available SUBPOSN positions. 







Extended Description 



DLZDLROO 

Routine 



5. Set exit code for entry SSAEVALL in 
DLZSSA. 







DLZDLROO - Retrieve Module 
Extended Descrlptio 



1. 

2. If logical relationship, build concate- 
nated segment. If variable length, 
build data. 

3. If qualification is on key, relational 
operator is greater than or equal to, 
and key is less than or equal to, SSA. 

4. Ifaccepted,R15=0, otherwise, 
R15=4. 


DLZKDTL 
DLZVLRT 


KDTESTI 
KDTESTK 

KDTESTER 
KDTESTHA 
KDTESTE 
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Figure 2-9.3. Retrieve - DLZPCHK Routine (DLZDLROO) 
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DLZDLROO — Retrieve Module 



l_ _: 



1. IfGNcall, HD: 



Move SDBPOSC to CURTTR and go 
to step 3. 



2. Position to segment: 

A. Interface to Buffer Handler, 
PSTBYLCT. 

B. Find SDB from segment code. 

C. Get pointers from segment. 

3. Exit 



-^ JCB 
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Figure 2-9.4. Retrieve - DLZTAG Routine (DLZDLROO) 
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Extended Description 


Routine 


Label 


2. For HSAM, more than 1 PCB: restore 
position. 

For HIS AM: take care of control 
interval splits. 




POSCHKA 
P0SCHKA2 


B. If not found (segment not 

sensitive), turn on LEVDLET and 
go to step 3. 






C. For HS, relational record number 
and offset to SDBPOSC. SDBPOSN 
already posted by DLZSETL. 






For HD, post twin pointers. 


DLZPSTN 




Clear dependent positions 
(SUBPOSP, SDBPOSC, and 
SDBPOSN). For HD, post child 
pointers. 


DLZPSTA 




For HD logical relation with 
inverted structure, post child 
pointers. Subroutine called by 
DLZPSTA. 


DLZAPST 




Clear SDBPOSP, SDBPOSC, 

and SDBPOSN in preceding sibling 

SDBs unless multi-processing. 


DLZPOSA 





Extended Description 
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info 
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FOBS 




1 Key FBA | 







1. If qualification is on key 
and operator is greater than 
or equal to SSA, position on 
key required. 



2. For GN, go to step 4, otherwise, 
position on start of DB. 



3. Interface to Buffer Handler 
and HSAM I/O. 



DB Buffer 
Handler 
2-15 
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DLZDLROO - Retrieve Module 
Extended Description 



1. Set code PSTSTLEQ for DLZSETL. 
Set exit code for entry SSAEVAL 
in DLZSSA. 

2. Set code PSTSTLBG for DLZSETL. 
Set exit code for entry SSAEVAL or 
SSAEVALM in DLZSSA. 

For GN, set exit code for entry 
SSAEVALM in DLZSSA. 

3. DLZSETL branches to subroutines 
according to DB organization. R6 
points to segment in buffer pool. 
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Figure 2-9.5. Retrieve - DLZSSA Routine (DLZDLROO) (Part 1 of 2) 
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call 
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SSA description 
set by 
ANALYZER 



1. If SSA is unqualified, go to 
step 4. 



2. Go to DLZKDTE routine (Fig 
2-9.2) to check acceptability 
of a segment. 



3. If segment is not accepted, 
go to step 9. 



4. Update level table. 

5. Go to next lower level. 



6. If level is not qualified, 
go to step 10. 

7. Go to DLZSKPG routine (Fig 
2-9.6) to skip segments. 



8. Go to step 1. 



> 



segment 
including its 
hierarchical 
path 



Figure 2-9.5. Retrieve - DLZSSA Routine (DLZDLROO) (Part 2 of 2) 
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DLZDLROO - Retrieve Module 
Extended Description 



Extended Description 



DLZDLROO 

Routine 



conditions 

set by RETRIEVE 

In previous 

or current call 



9. Segment is not acceptable. 

A. If LEVCONT is on and not 
at root level, go to Step 9E. 

B. If LEVCONT is on and at root 
level, go to Step 9D. 

C. If current level is root, 

exit to subroutine DLZGER. 

Otherwise, back up one level 
and return to Step 9A. 

O. Get next root segment. 



Interface to 
buffer handler 
and HSAM I/O 



E. Go to routine DLZSKPG (Fig 
2-9.6) to skip to next segment 
of same type under present 
root. 

F, Return to Step 1. 



2. With a Boolean SSA all Boolean state- 
ments connected by AND operators are 
considered a 'set' of qualification state- 
ments. An OR operator between two 
qualification statements begins a new set 
of qualification statements. A set can 
consist of one or more qualification 
statements. To satisfy any set, the 
segment must satisfy all statements 
within the set. 

6. Prepare input (segment type, etc.) 
before entering the central DLZSKPG 
routine. 



DLZDLROO - DLZSSA Routine 
Extended Description 



Extended Description 



DLZDLROO 
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Figure 2-9.6. Retrieve - DLZSKPG Routine (DLZDLROO) 



Figure 2-9.7. Retrieve - DLZGETS Routine (DLZDLROO) 
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I Option code 



SDB R6 ] 


SDBORGN 


Buffer 
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segment 
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SDBPOSN 




JCB 




JCBCODE, 

bit 

JCBRDREQ 









1, If 'Skip to Next' option, go to step 3. 



2. Prepare control input. 



>^3. Skip to next segment. 
4. If skip failed, go to step 8. 



5. If 'Skip to Next' option, test if segment is 
sensitive. 



If not sensitive, go to step 3. 



6. If 'Skip to Next Segment' option, test 
segment level and segment code. 



If accepted, go to step 8. 



7. If position still before segment searched, 
go to step 3. Otherwise, indicate failure. 



DLZDLROO - Retrieve Module 
Extended Description 



Extended Description 



DLZDLROO 

Routine 



1. Option is 'Skip to Next Segment' if R15 
is positive. If R15 is negative, the option 
is 'Skip to Specified Segment'. 

2. If JCBLVT = X'02', require segment 
code, segment level in physical DB, and 
parentage level. 

3. For JCBRDREQ off, current segment 
is examined first. 

DLZSKPS calls general skip routine 
DLZSKPE, which calls specific skip 
routines: 

ForHS,DLZSKPD. 

For HD using SUBPOSN, DLZSTLA. 

In some cases (HS, skip to first child of 
current segment), DLZSKPD is called 
directly from DLZSKPS. 

4. End of ESDS chain reached for HISAM. 




SKIPGENS 
SKIPGEN 



7. If segment code of segment found is not 
larger than that required. 







} SDBFLS I 



-, — -^ 3. If logical relationship, call 

! ^ DLZLOGR (Fig. 2-9.8) to build 

concatenated segment. 



DMB 


Data 


1 DMBBDL ] 


segment in 
buffer pool 



-) 4. If variable length segment, 
build/expand segment. 



) 5. If field level sensitivity specified, 

call DLZFLDO to build user view. 



1. Turn on LEVDATA. Turn on 
LEVHELD if Get Hold call. 



2. Save lowest level number. 



l) 6. Move segment to I/O area and give 
y seament location and lenath. 



segment location and length. 

7. Do final housekeeping. 

8. Exit. 



DLZDLROO - Retrieve Module 



Extended Description 
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Extended Description 



6. If batch, only one task active, or no 
field level sensitivity specified, and if 
segment is fixed length and not involved 

not moved (left in buffer pool). The 
same is true for Insert calls. 

For a path call (*D command), data has 
already been moved in DLZUPDT and 
is not moved here. 

Address of I/O area is PSBIOAWK. 

7. For Insert calls, return is to Load/Insert. 
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Figure 2-9.8. Retrieve - DLZLOGR Routine (DLZDLROO) 
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2^ 1. For ISRT call go to Step 6. 



2. Move logical child. 



3. If not a variable length segment, 
go to step 5. 



4. Expand segment. 



5. Move destination parent 
data. 



6. Call DLZRETI (Fig 2-9.9) to 
insert positioning for logical 
child. 
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DLZDLROO - Retrieve Module 
Extended Description 



1. Destination parent concatenated key 
and logical child data. 



6. Destination parent exists. Position 
segment on alternate twin chain. 



Extended Description 
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Label 
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Figure 2-9.9. Retrieve - DLZRETI Routine (DLZDLROO) (Part 1 of 2) 
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child data 
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buffer 



1. Retrieve destination parent 
using concatenated key. 



^ 2. If virtual logical child, go 

to step 4. 



3. Find pointer number and go to 
step 5. 



4. Get pointer numbers. 



> 5. Get pointers from destination 
parent. 



6. If no key and rule 'FIRST', 
go to exit, step 8. 



DLZDLROO - Retrieve Module 



Extended Description 


Routine 


Label 


1. LEVUSEOF indicates offset of key for 






Destination parent data is stored 
behind concatenated key and logical 
child. 


DLZRETK 




2. For virtual logical child (insert through 
logical path), positioning on physical 
twin chain is required. 






3. Find logical twin pointer number. 
Find logical child first and last pointers 
in logical parent. Find FDB for key of 
logical child, if present. 




RETISRTF 


4. Find physical twin pointer number. 
Find physical child first and last 
pointers in parent. Find FDB for key 
of virtual logical child, if present. 




RETISRTR 


Logical twin key is moved to key 
feedback area. 


DLZUPDL 






Figure 2-9.9. Retrieve - 
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DLZRETI Routine (DLZDLROO) (Part 2 of 2) 

»■ PROCESS ^»^«-ii— >i«> 



7. Follow alternate twin chain 
until key (if present) larger 
than key of inserted segment, 
or to end of chain. Go to 
exit, step 8. 

Special case: matching key 
found in chain: 



Key unique: If segment de- 
leted logically, go to 
exit, step 8. Otherwise, 
set status code 'H', and 
go to exit, step 8. 

Key not unique: If rule is 
'FIRST', go to exit, step 8. 
Otherwise, follow twin 
chain until larger key is 
found or to the end of 
chain. 



8. Exit. 
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DLZDLROO - Retrieve Module 
Extended Description 



7. Alternate means: Logical twin chain 
if entering from physical path, 
physical if entering from logical path. 

If sequence field is in destination 
parent concatenated key (possible 
only for virtual logical child), the 
virtual area (physical parent, 
concatenated key, and logical child 
data) is built in PSBIOAWK, calling 
routines DLZYSTC and DLZMOVA. 
As an indication, the first byte of 
PSTWRKT5 is set to X'FF'. 

A. For logically deleted segment, 
tum on bit JCBDEFDL in 
field JCBCODE. 
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Extended Description 
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lO Figure 2-9.10. Retrieve - DLZFLDO Subroutine (DLZDLROO) 
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[sDBTARG I - — I — ■; ► 2. If concatenated segment, update FER. 
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' ; ► 3. If segment is variable length, update FER. 

4. Call DLZCPY10. 

5. Exit. 
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1. Initialize field exit routine interface list. 
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DLZDLROO - Retrieve Module 



Extended Description 



Extended Description 



Routine Label 



1 . FER is located at address in PSBNDXWK. 

2. The concatenated segment has been built 
in PSBIOAWK and the user's view must be 
constructed in another area (PSBXIOWK). 
For path calls (*D command), the user's 
view will be moved back to PSBIOAWK 
after conversion to the user's view. 

3. Fields may be defined that are outside the 
physical segment, so they must be 
defaulted so conversion errors do not 
occur. If such fields do exist, the segment 
is moved to PSBXIOWK and the defaults 
provided. 

4. If a conversion error is detected, an 
taken. 
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Figure 2-10. Load/Insert (DLZDDLEO) (Part 1 of 2) 
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2. Call subroutine depending on 
data base and 'PROCOPT': 



HISAM Root 
2-10.3 



HISAM Depen- 
dent Segment 
Insert 

2-10.4 



HDAM/HIDAM 
Load 

2-10.6 



DLZDDLEO - Load Insert Module 
Extended Description 
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Figure 2-10. Load/Insert (DLZDDLEO) (Part 2 of 2) 



I 
I 



Note: DLZDDLEO is called from 
DLZDLAOO (Call Analyzer) or from 
DLZDLROO (Retrieve Module). 








2. (con't) 






^^ 


HDAM/HIDAM 




Not Load 
2-10.7 








^ 


DFSDNXTO 




Not Load End- 
ing Routine 
2-10.8 








^ 


HIISNXLV 




Load Ending 

Routine 

2-10.9 


4. Return 







i 



Extended Description 



Note: DLZDDLEO is called from 
DLZDLAOO (Call Analyzer) or 
from DLZDLROO (Retrieve 
Module). 







Extended Description 




I 



I 
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Figure 2-10.1. HSAM Load (DLZDDLEO) 



_J "^ 1. On first entry, initialize 

DTF and I/O buffer address. 



2. Issue locate mode 'PUT' when 
record is full. 



> 3. Move segment to I/O area 
and update tables. 




4. For UNLD call, issue last 
'PUT'. 



DTF 


LODBLOCK 




t 


LODLRECL 








Figure 2-10.2. HISAM Load (DLZDDLEO) 
■■ INPUT I ■■ PROCESS ■ 



LODOFFSE7 



DMBPRSZ 


LODBLOCK 


DMBDL 


LODOFFSET 




LODLRECL 



A. Root segments: 



Write previous KSDS record 
and get buffer for new one. 



B. Dependent segments: 

If no more space in ESDS, 
write previous ESDS and 
get buffer for new one. 

2. Move segment to buffer 



Write previous KSDS and ESDS 
record. Write new KSDS record 
with root key of 'FF's. 



::^jcB 



DLZDDLEO - HSAM Load 



Extended Description 



DLZDDLEO - HISAM Load 



1 . DLZDLOCO stores the I/O area address 
in the JCB. It is updated with every 
'PUT'. 

The record size is taken from the DTF 
and the error exit address in the DTF 
is updated. 




HSAMFRST 



Extended Description 




Extended Description 


Routine 


Label 


1. 

A. Record length, buffer address, 


WRITEOLD 


HISIMPLS 


and offset into buffer is stored 






in the JCB and passed from call 






to call. 






When a call for a new root seg- 






ment is made, the buffer handler 






(DLZDBHOO) is called to write 






the previous KSDS record and 






to get buffer space for the new 






one. 






B. If there is space left in the ESDS 


NEWRBA 


NEEDOSAM 


records, continue with step 2. 






Otherwise, the RBA of the next 






ESDS record is calculated, the 






pointer of the current ESDS 






record updated, and the buffer 






handler called to write the ESDS. 






Another call to DLZDBHOO is 






made to get buffer space for a 






new ESDS record. 






ABEND 855 is given if VSAM 




CATERROR 


returns an RBA different from 






the calculated one. 







Extended Description 



DLZDDLEO 

Routine 



2. The segment is moved, the PCB key 
fed back, and the level table updated. 
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Figure 2-10.3. HISAM Root Insert (DLZDDLEO) (Part 1 of 2) 



Figure 2-10.3. HISAM Root Insert (DLZDDLEO) (Part 2 of 2) 



mFig. rPR« 
} Step 2 I 



^ 1. Call DLZDBHOO to get segment 
with key EQor HI. 



^ 2. If key of returned segment is 
EQ, update SDB and level 
table. If it is not EQ, go to 
step 7. 



3. Return 1 1 status when segmem 
was not deleted. 



Otherwise, log old segment. 



4. Move segment and update PCB 
and level table. 



5. Indicate only one segment in 
record and log new record. 



DLZDDLEO - HISAM Root Insert 



>| IPSTDATA I KSDS 



jSUE U^VTAB 



^^^ DBPCB_ 











KSDS 
Record 


1 1 






n 









Routine 


Label 


1 . The buffer handler is caUed with 
'PSTSTLEQ' to get a segment with 
key equal or higher than the one to 
be inserted. 


GOTOFUNC 


HIISRTRO 


2. If the key returned is higher, 
processing continues with step 7. 




ISIS015 


3. When the delete flag is not on in the 
segment returned, status code 'IF is 
returned to the caller. 






The data base log module is called to 
log the old KSDS record. 




ISSDELET 


4. The new root segment is moved to the 
KSDS record. The PCB key feedback 
area and level table are updated. 






5. The pointer to the ESDS record is 
cleared and '00' moved to the KSDS 
record behind the root segment. The 
data base log module is cdled to log 
the new KSDS record. 







Extended Description 


Routine 


Label 









■ INPUT 






6. Write record block. 


get buffer 










PSTFNCTN 


:> 7. Call DLZDBHOO to 


> PSTDATA 1 


PSTBYTNM 


1 Y space for KSDS record. 


1 


< 1 




1 1 


ite PCB and 






I/O Area 


> 8. Move seament iinHs 


- -"■ -■ >ei.n« 1 










level table. 






1 1 








♦■^ 


DFSDLIMS 






9. LOG THE NEW RECORD. 

10. Call DLZDBHOO to write the 
new KSDS record. 




11. Update tables. 




^ SDB L&VTAB 




To Fig 2-10 
Step 3 


1 II 1 




^ 




^^m^A 











I 

I 

s. 
S 



DLZDDLEO - HISAM Root Insert 
Extended Description 



Routine 



6. The buffer handler is called to write 
the KSDS record back (PSTBFALT). 

7. The buffer handler is called 
(PSTGBSPC) to get buffer space 
for one KSDS record. 

10. PSTPUTKY is used to write the new 
KSDS record. 



GOTOFUNC 
GOTOFUNC 

GOTOFUNC ISSIMPLl 



Extended Description 



DLZDDLEO 

Routine 
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Figure 2-10.4. HISAM Dependent Segment Insert (DLZDDLEO) 

INPUT ■Mm— ^— i— ^ IP PROCESS -iv—i-i-» 



Buffer 

1 


DMB 

1 J 


1 



From Fig. 
2-10 Step 2 


ri 


k 




; 


m 

^ 


1. Log old record. 




» 


2. Compute length of shift data 
and check rest of records for 
valid segment codes. 

3. Move shift data and new seg- 
ment. 

Figure 2-10.5. 






4. Log record. 






^ 


DLZRDBLO 




DB Logger 



5. Correct position of other 
users of same data base. 



6. Write one, two, or three 
records. 



DLZDDLEO — HISAM Dependent Segnnent Insert 





Routine 


Label 


1 . DLZDLROO has located within a KSDS 
or ESDS record, where the new segment 
has to be inserted. The old record is 
logged from insert point on to the right. 




HIISRTR 


2. The record is inspected from the insert 
point to the right. The segment code 
is checked and the length of the remain- 
ing segments is added to give the 
'shift data'. 




HAVELREC 
COMPSHFT 
ABEND861 


4. Log the old record from insert point 
to the right. 


DLZDLBLO 


LOGLEVCO 


5. SDBs and level tables of other PCBs 
that are positioned in the same record 
are updated to show the shifted position 
of the segments. 




INSADJUS 


6. DLZDBHOO is called to write back the 
old record and to write one or two new 
ESDS records. 


GOTOFUNC 


KNNDONEX 




f 



i 



o 



c 



y 






c 



o 



o 



o 



o 






Figure 2-10.5. NOTSC Routine (DLZDDLEO) (Part 1 of 2) 




DLZODLEO — HISAM Dependent Segment Insert 
Extended Description 



From Fig. 
2-10.4 
Step 3 










1 
1 


► 1. Segment and shift data fit in 




" 


^ old record j 




old record: 

A. IVIove 'shift data' right. 

B. Move segment to buffer and 
update tables. 








L J 








> 2. Segment fits in old record 






1 old record | 
1 new record | 




but not 'shift data'. 

A. Calculate RBA of new ESDS 
record. 

B. Get buffer space for one 
ESDS record. 

C. Chain old and new record 
and log chain. 

D. Move 'shift data' to new 
ESDS record. 

E. Log new record. 

F. Move segment to old record. 



















Figure 2-10.5. NOTSC Routine (DLZDDLEO) (Part 2 of 2) 

■■ INPUT MiB^_^— — 1^^ p PROCESS ■ 



]'=1 



3. Move segment and 'shift data' 
to new ESDS. 

A. Calculate RBA of new ESDS 
record. 

B. Get buffer space for new 
ESDS record. 

C. Chain the two records and 
log the chain. 

D. Move segment to new record 
and update records. 

E. Move 'shift data' to new 
record. If it does not fit, 
repeat step 3 A, B, and C. 

F. Log one or two new ESDS 
records. 



5? 

I 



I 



1 . When both the new segment and the 
shift data fit in the old record, the 
shift data is moved right by segment 
length. The segment is moved to the 
record and the PCB and level table are 
updated. 

2. A new ESDS record has to be built. 



GETNESDS 
LOGCHAIN 
COMMOVE 
LOGNEWOS 
DFSDLIMS 



Extended Description 



DLZDDLEO 

Routine 



DLZDDLEO - HISAM Dependent Segment Insert 



^ I old record \ 



I 
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Extended Description 


Routine 


Label 


3. Neither segment or 'shift 


GETNESDS 


SEGTONEW 


data' fit in the old record. 


LOGCHAIN 


SHIFTOO 


A new record has to be 


DFSDLIMS 


SHIFT0S2 


built. If it does not have 


COMMOVE 


LOGLEVCO 


room for the segment and 


LOGNEWOJ 




'shift data', another new 


NEWRBA 




ESDS record has to be built. 


GOTOFUNC 




The records are chained and 






logged. 







Extended Description 


Routine 


Label 
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Figure 2-10.6. HDAM/HiDAM Load (DLZDDLEO) (Part 1 of 2) 

r INPUT [ From Fig. r PROCESS 



Figure 2-10.6. HDAM/HiDAM Load (DLZDDLEO) (Part 2 of 2) 



F 
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^ 1. Get real lengtii of segment. 



]a 



^ 2. Simulate retrieve positioning. 



^ 3. If segment is present, replace 
it. Otherwise, get space for 
segment. 



4. Update anchor point in HIDAM 
and log change. 



^ 5. Move segment to buffer and 
update tables. 



DLZDDLEO -HDAM/HIDAM Load 





Routine 


Label 


1 . The subroutine VLDSEG takes the 
length from the PSDB for fixed 
length segments and from the user's 
I/O area for variable length segments. 
The compaction exit routine is called, 
if it exists. 


VLDSEG 


DFSDHDLO 


ABEND '863' is given when the com- 
paction routine changes the sequence 
field. 




ABEND863 


2. For fflDAM root segments, DLZDLROO 
did the positioning. For other segments, 
it is done here. 






3. Space management is called to get 
space for the segment. If the segment 
was deleted in one path only, i.e. it 
was not removed by DLZDLDOO, the 
segment is replaced with the new data. 


TOSPACE 


GETSPACE 
SPACEOUT 


4. HIDAM root segments without PTB 
pointers are chained off the anchor 
point in chronological sequence. 




SPACEOK 


5. Move segment to buffer, update PCB 
key feedback, and update level table. 


DFSDLIMS 


ANCHOROK 










PSDB 





1 1 


SDB 

1 1 











r PROCESS ■ 



6. Update prefix. 



7. Log inserted segment. 



DLZRDBLO 



8. Update prefixes of parents and 
twins. Update HIDAM root 
anchor points and log the 
changes. 



=>f 




DLZDDLEO - HDAM/HIDAM Load 
Extended Description 



6. The prefix of the segment is updated: 
physical twin pointers, physical parent 
pointer, logical parent pointer, and 
logical twin pointers. 

7. The data base log module is called to 
log the inserted segment. 

8. Call space management (DLZDHDSO) 
to update the prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments and call the 
data base log module to log all changes. 



TOSPACE 

UPPARENT 

UPPREFIX 



UPBITMAP 
BITMAPOK 
HDDANCOF 



Extended Description 



DLZDDLEO 

Routine 
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Figure 2-10.7. HDAM/HiDAM Not Load (DLZDDLEO) (Part 1 of 2) 



I 



(See Note) 

1. Get real length of segment. 



^^ 


VLDSEG 




Process Vari- 
able Length 
Segment 


2. If segment is present, replace 
it. Otherwise, get space for 
segment. 


^■^ 


DLZDHDSO 




HD Space 




3. Update anchor point in HI DAM 
and log change. 



4. Move segment to buffer and 
update tables. 



DLZDDLEO - HDAM/HIDAM Not Load 



^^ PST 



> 



]C 



LEVTAB 
I LEVTTR 



Figure 2-10.7. HDAM/HIDAM Not Load (DLZDDLEO) (Part 2 of 2) 



r 



Extended Description 


Routine 


Label 


Note: When this entry is used, DLZDLROO 




DFSDHDIO 


had done the positioning. 






2. Space management (DLZDHDSO) is 


TBSPACE 


GETSPACE 


called to get space for the segment. If 




SPACEOUT 


the segment was deleted in one path 




POSTPST 


only, i.e. it was not removed by 




SPACEOK 


DLZDLDOO, the segment is replaced 






with the new data. 






3. HIDAM root segments without PTB 




SPACEOK 


pointers are chained off the anchor 






point in chronological sequence. 






4. Move segment to buffer, update PCB 


DFSDLIMS 


ANCHOROK 


feedback and the level table. 














PSDB 





1 1 


rh 











5. Update prefix. 

6. Log inserted segment. 
















^■^ 


DLZRDBLO 




DB Logger 
2-16 







7. Update prefixes of parents 
and twins. Update HIDAM root 
anchor point and log the 
changes. 




:^[=l 
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DLZDDLEO - HDAM/HIDAM Not Load 



Extended Description 


Routine 


Label 


5. The prefix of the segment is updated: 
physical twin pointers, physical 
parent pointer, logical parent pointer, 
and logical twin pointers. 

6. The data base log module is called to 
log the inserted segment. 

7. CaU space management (DLZDHDSO) 
to update the bitmap if required: 
update prefix of physical twins, 
logical twins, physical parents, and 
logical parents. Update anchor point 
for HDAM root segments, call the 
data base log module to log all changes. 


TOSPACE 

UPPARENT 

UPPREFIX 


MYPREOK 

UPBITMAP 
BITMAPOK 
HDDANCOR 



Extended Description 



DLZDDLEO 

Routine Label 
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Figure 2-10.8. Not Load Ending Routine (DLZDDLEO) 



: — 



d^L 



From Fig. 
2-10 Step 3 


5> 1. Call DLZDXMTO if segment is 
indexed. 

^ 2. If segment was LP, insert LC 
now. 






_ — _ 


^ 3. For LC segments: __^ 




^ 1 1 P^Qprsfi/iFMT 1 




Replace data of LP if it was 
not inserted before. 






, — — _ _ 


* 4. For PATH ISRT, insert next 




/!> 1 PSTUSER J 




segment. 








b. Clean up and return. 


^ 


? PSTSEG R15 






To Fig 2-10 
Step 4 


1 00000000 ni 00000000 n 




PSTSEG L 




1 00000000 j 











Figure 2-10.9. Load Ending Routine (DLZDDLEO) 

m INPUT BMi^— ^B— 



I PSTUSER I 



From Fig. 
2-10 Step 3 


■ PH 


> 



















1 Write work data set for LC 




;> 


[PSTWRKI 1 




and LP segments. 

2. Build index for index source 
statement. 








1 DBPCBLKY 1 










. 


3. Load next segment for PATH __ 




J> 1 P.<5TUSFR 1 






ISRT. 
4. Call DLZDXMTO for UNLD call. 










► PSTSEG R15 1 




5. Clean up and return. 








To Fig 2-10 
Step 4 


1 00000000 1 1 00000000 1 1 




PSTSEG L 






1 00000000 1 















DLZDDLEO - DFSDXNTO Ending Routine for Not Load 
Extended Description Routine 



1 . Index Maintenance is called to build 
the primary or secondary index for 
an index source segment. 

2. If the ISRT caU was for a concatenated 
segment, the destination parent was 
inserted first (if it did not exist before 
the ISRT call).The next step is to 
insert the logical child segment. The 
insert process is repeated from Fig- 
ure 2-10 step 2. 

3. If the ISRT rule of the destination 
parent is virtual and this segment 
existed already, then the data of the 
destination parent is replaced. 
DLZDXMTO is caUed to replace the 
index if the destination parent is an 
index source segment. 

4. If there are more segments to be 
inserted in a PATH, then point to the 
next segment in the I/O area and 
continue with Figure 2-10 step 2. 




NXTLEVIS 
NOLPAREN 



Extended Description 




DLZDDLEO- HIISNXLV Ending Routine Load Mode 



Extended Description 


Routine 


Label 


1 . If the segment just loaded was a 




CALLERN 


logical child or a logical parent 




CALLWORK 


segment, DLZDSEHO is called to 






write the work data set. If opening 






of the work data set fails due to 






'ASSGN SYS013,IGN' and the segment 






was an LP, processing continues. On 






any other open failure , 'ABEND 864 






IS given. 






2. If the segment is an index source 




NOLO AD 


segment, DLZDXMTO is caUed. It 




NCALLNDX 


writes the work data set or writes the 






index pointer segment directly. 






3. For PATH ISRT, the pointer to the 




N0INDEX2 


I/O area is updated and processing 






continues with Figure 2-10 step 2. 






4. DLZDXMTO is called to inspect aU 






PSDBs of the DMB for index source 






segments and builds an FF key index 






pointer record for it. 







Extended Description 



DLZDDLEO 

Routine Label 
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Figure 2-11. Delete/Replace (DLZDLDOO) 



Figure 2-11.1. Replace (DLZDLDOO) 





From Fig. 
2-8.1 










R15 


User 

I/O Area DBPCB 


r> 1. Initialize addresses. 


















JCBPRESF 


^ 2. If call is REPL, 








^ 


REPLACE 




Process 
Replace 

2-1 1 .1 


3. If call is DLET and data base 
is HISAM, 




^^ 


DLETE 




Process HISAM 
Delete 

2-1 1 .4 


4. If call is DLET and d 
is HDAM or HIDAM, 


stabase 




^ 


DELTHD 




Process HD/HID 
Delete 

2-11.5 


5. Return to DLZDLZO 


Owith 




return code in register 15. 














■ 


To Figure 
2-8.1 





■■ INPUT I 



DLZDLDOO - DLET/REPL Module 



Extended Description 


Routine 


Label 


1. The segment to be deleted or replaced 


DLZDLDOO 


DELREPEP 


is identified by the contents of 






JCBLEVIC. Position is established by 






DLZDLROO in the previous call. 






2. 




REPLACE 


3. 




DELETE 


5. If a user error occurred, DBPCBSTC 




RETURN 


has return code. If abend, PSTERCDl 






has abend code and registers are saved 






at SCDABSAV + 8. 








A (I/O Area) 




1. Ensure that key field has 
not been changed. 



PSTUSER Buffer 



^ 2. Set address, length, and 
offset of segment. 



3. Ensure data changed and key 
field not changed. 



4. If segment is an LC, 

A. Ensure LC can be replaced. 



[^ B. If data changed: 



UP LENGTH 



A (segment) 1 1 length 




5. Replace segment. 



i. If another level to replace, 
go to step 1. Return when 
done. 




user segment 



\ 



5 
s. 

5 



DLZDLDOO - DLET/REPL Module 





Routine 


Label 


1. 




REPCKOl 


2. PSTUSER will have new value if path 
call had been made. The length is taken 
from the first two bytes of the I/O 
area if segment is variable length. 






3. Additional logic is needed if segment 
is variable length or if PROCSEQ is 
specified. 




CHKRLP 
CHKREPLl 


4. A. The following check is made 
for the LC: 




CHKREPFF 


Neither the physical nor logical 
key fields can be changed (DA 
status). 






The following checks are made for 
the destination parent: 




CHKRLPOl 


a) If data didn't change, no replace. 







Extended Description 



4. (con't) 

b) If replace rule is physical, RX 
status. If logical, no change and 
blank status. If virtual, the key 
of the LP carmot be changed 
(DA status). The segment can 
be replaced. 

B. 

5. This replaces normal segment or LC. 

6. If path call, see if another segment 
in hierarchy can be replaced. 




REPPAROl 
REPFINAL 
LEVDONE 



I 

00 
iJt 



00 



P 



o 

C/3 



O 

f 



Flgu 


re 2-11.2. Replace Data 


(DLZDLDC 


K)) (Part 1 Of 2) 














From Fig. 
2-11.1 


W (DOREPU 

1. Do PI queuing if necessary. 

> 2. If segment has secondary 
indicies and is not marked 
physically deleted: 
















- 






Buffer 


delete byte | 




A. Go build work area for 












> De 


ete Work Area 














B. Call DLZDXMTO. 






*^ 


DLZDXMTO 






Index Main- 
tenance 

2-12 




DMBCBSTC 





^ C. if blank or NE status. 








continue. 




DMBVLDFG 




- 








^ 












REPVLS 






Replace 
variable 
2-11.3 














Buffer 








^ 4. Log old data in buffer. 








PSTWRK1 
























code, data 
length 




old data 




DLZROBLO 






Physical replace 
code 51 

2-16.2 














1 























Figure 2-11.2. Replace Data (DLZDLDOO) (Part 2 of 2) 



■ PROCESS > 



j new data j 



DLZDLDOO - DLET/REPL Module 



d Descriptii 



2. Index Maintenance needs the actual 
concatenated key of this segment. 
If return code is NE, we still continue 
processing because index is now set 
as per new data. Work area is freed. 



4. DBLPHYR+DBLPHYRO is set in 
first byte of PSTWRKl. 




DLZDLDOO - DLET/REPL Module 
Extended Description 



1^5. Move new data to buffer. 
6. Log new data. 



^■1^ 


DLZRDBLO 




Physical 

replace code 50 
2-16.2 


7. Mark buffer altered. 


*^ 


DLZDBHOO 


BFALT label 
2-15 


8. Return 





c> ^ 



^^ PSTFNCTN 

I PSTBFALT I 



5. The address of the user's I/O 
areaisinPSTUSER. 

6. DBLPHYR is set in PSTWRKl 
with the length of the segment. 




DOREPL92 
REPL18 



Extended Description 



Routine Label 
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Figure 2-11.3. Replace Segment (DLZDLDOO) 



m INPUT 




r PROCESS ■ 



(REPVLS) 

1. Compress new data if required. 

2. If data separated from prefix, 
replace separated data and go 
to step 4. 



Replace 
separated 
data 



> 3. If new length is GT old 

length and GT minimum, sepa- 
rate data from prefix and go 
to step 6. 



> % 4, If length is equal to old 

" If length, or if both are LE 

minimum, replace old data and 
go to step 6. 



5. If new length is LT old 
length, replace old data. 



DLZDLCJOO - DLET/REPL Module 



J> 


OUTPUT — 

Buffer 










prefix 




new data 


> 


Buffer 








prefix 


new data 











Figure 2-11.4. HISAM Delete (DLZDLDOO) 

■■ INPUT ■————■ 



Extended Description 


Routine 


Label 


2. When the data is previously separated 


DLZDLDRO 


REPVLSOl 


and the new data length is less than 






the old length, an attempt is made to 






relocate the new data adjacent to the 






prefix. 






3. When the old segment size is not large 




REPVLS03 


enough for the new segment, the data 






is separated from the prefix. A pointer 






overlays the first four bytes of the old 






data and will be used to find the new. 






5. When the new data will fit in the old 




REPVLS 10 


location, it is moved over the old data 






with any excess bytes being freed. 






All changes to the data base have 




REPVLS38 


been logged. 








DLZDLDOO - DLET/REPL Module 



^ (DLETE) 

> 1. Get segment to be deleted. 












f-* 


DLZDBHOO 






DB Buffer 
Handler 

2-15 


> 2. If data base is simple HISAM, 




A. Indicate physical delete 
for Logger. 






> 


PSTWRK1 






f» 




DBLPHYD 




B. Indicate PST erase for 


length of 


Buffer Handler. 




> 

> 


PSTFNCTN 












3. If data base is HISAM, 






Buffer Pool 




A. Set proper delete bits. 
















B. Indicate logical delete 
for Logger. 


PSTWRK1 








-_ 


* 


OBLLGDLT 




C. Indicate PSTBFALT for 




length of 2 


1 . 


Buffer Handler. 












Htbfalt I 

■ Q 

LOGOUT 








4. Log the change. 










1 

To Fig 2-1 1 
Steps 






DB Logger 
2-16 


5. Update the data base 






DLZDBHOO 




DB Buffer 
Handler 
2-15 
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Extended Description 


Routine 


Label 


1. 




DELTOl 


2. The entire segment to be erased is 




SHISAM 


logged. 






3. Only the segment code and delete 




DELT41 


byte are logged. 




LOGDLT 





Routine 


Label 
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00 
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Figure 2-11.5. HDAM/HIDAM Delete (DLZDLDOO) 



Vi PROCESS ■ 



1. Scan PSDBs looking for LC 
or LP. 

A. If starting segment is an 
LC retrieved from logical 
path, mark him LD, is pos- 
sible. 

B. Ensure no violations of 
the physical delete rule. 

2. Build work area for path. 

^ 3. Read and process all segments 

^ from top to bottom. Determine 

how to delete LC or LP. 




Delete 
seginent($> 
2-11.6 



DLZDLDOO - DLET/REPL Module 



Extended Description 


Routine 


Label 


1 . A. LC wiU be marked logically 
deleted (LD) if delete rule = 
physical or logical and segment 
not PD (physically deleted). 


DLZDLDOO 


DELTHD 
ILCDLT 


B. A logical parent can have no 
active logical children. An LC 
must not be accessable by his 
logical path. 




DELT09 
PHYSCAN 


2. This is needed to remember where 
we are during scan of data base and 
to build concatenated keys. 




DELTHA 
NEWOMB 


3. LCF and LCL pointers in logical 
parents, and LTF and LTB pointers 
in logical children, will be updated 




REQSCAN2 
SCANDMB 
REQDOWN 


4. Segments may be marked deleted or 
physically removed. 




REQBOTM 


5. All work sets are freed. 




ENDLTSCN 



Extende^Descrigtior^ 



DLZDLDOO 

Routine Label 
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Figure 2-11.6. Delete Segment (DLZDLDOO) (Part 1 of 2) 



DMBFLAG ■ > 



r PROCESS ■ 



From Fig. 
2-11.5 
Step 4 



f (REQBOTM) 



1. If segment Is an ISS; delete 
index pointer. 



DLZDXMTO 



^S 2. If segment cannot be removed, 
"^ mark PD, log, and go to step 

R 



3. Change all pointers to this 
segment. 



4. Mark position changes in SDBs. 



5. Free segment's space. 



DLZDLDOO - DLET/REPL Module 



11 PSTFNCTN 



Figure 2-11.6. Delete Segment (DLZDLDOO) (Part 2 of 2) 

■■ INPUT MHi—Bi^a>BiBBi« !■ PROCESS — » 



Extended Description 


Routine 


Label 


1 . If the index source segment (ISS) has 
been marked physically deleted 0*D), 
no index maintenance is performed. 
Delete processing continues with 
blank or 'NE' status from DLZDXMTO. 


bLZDLDDO 


REQBOl 


2. A segment will not be physically 
removed if still required because 
of a logical relationship. Note that 
the delete work area and DL/I blocks 
(primary PSDBs) are used as input 
to every step. 




REQB02 


3. If segment is an LC or LP, the logical 
relationship pointers (LC, LP, and 
LT) have already been changed. 


DLZDLDDO 
3LZDLDA0 


FREESPCE 
FRSPCOO 


4. The current position (SDBPOSC) is 
marked 'lost' in this caller's PCB. If 
any other PCB has position on this 
segment, the position should be 
changed to bypass this segment. 


DLZDLDAO 


PRSPC05 
MARKSDB 


5. DLZDHDSO makes the log calls for 
the physical delete. 


)LZDLDAO 


FRSPC05G 




6. If starting segment is not yet 
deleted, get next segment and 
process it 



s. 



DLZDLDOO - DLET/REPL Module 



Extended Description 



Extended Descrij 



6. Next segment is physical 
twins, sibling, or parent. 

7. At end, a final log call is 
made to DLZRDBLO which 
signifies delete is fmaUy 
accomplished. 


DLZDLDOO 
DLZDLDOO 


BOTMIB 
ENDLTSCN 
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Figure 2-12. Index Maintenance (DLZDXMTO) 

INPUT HBa^iB^aiiaMii^ ^ PROCESS ■ 



■'^ 1. Save registers and PST fields. 



I " ►2. Analyze function. 



If ISRT/ASRT, insert new 
index pointer segment. 



Insert New Index 

Target Segment 

2-12.1 



B. If DLET, delete old index 
pointer segment. 





^^ 






Delete Old Index 

Target Segment 

2-12.2 


c. 


If REPL, replace index 
pointer segment. 




^^ 


LREPL 




Replace Index 
Target Segment 


D. 


If UN LD, insert 


FF-key. 




LUNLOAD 




Insert FF-keys 
2-12.4 



3. Restore registers and PST. 



-V? 



DLZDXMTO - Index Maintenance 



Return to Caller p 



Figure 2-12.1. Insert New Index Target Segment (DLZDXMTO) 
—PROCESS ■— 





From Caller 


DMB Work area 1 




1 1 




^ 








SDB 




See note ' 


1 1 













DLZDXMTO - Index Maintenance 



1. Find secondary lists and length 
of index pointer segment. 



2. Construct index pointer segment. 

3. If index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 

4. If initial load, put index 
pointer segment. 

5. If Not Load mode, call DLZDLAOO 
to insert index pointer segment. 



6. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 







Label 


Note: DLZDXMTO is caUed from 
DLZDDLEO or DLZDLDOO. 






2. When caUed from DLZDDLEO, the 
function is ISRT, ASRT, UNLD, or 
REPL. When called from DLZDLDOO, 
the function is REPL or DLET. 
PSTWRKl contains the PSDB address 
of the index source segment for DLET 
or the LSDB address of the index source 






segment. 






A. Construct and insert all index 
pointer segments for this index 
source segment that should not 
be suppressed. 


LIN,SERT 




B. Construct and delete all old 
index pointer segments existing 
for this index source segment. 


LDELETE 







Routine 


Label 


2. (con't) 






C. Construct all old and new index 


LREPL 




pointer segments that can be con- 






structed from that index source 






segment. Depending on the data 






changed and the status of sup- 






pression, delete old index pointer 






segment, or insert new index 






pointer segment, or delete old 






and insert new index pointer 






segment, or replace data of index 






pointer segment. 






D. If DLBL card is provided, write 


LUNLOAD 




index pointer segment with all 






FF-keys for all index data bases 






to belonging to this PCB. 







Extended Description 


Routine 


Label 


Note: The input control blocks are used 






in all process steps. The output work area 






is modified in all process steps. 






1 . Find SECLISTs and PSDBs of index 


LBLDWKA 




source segment, index target segment. 






and index pointer segment and save 






their address in work area. Decide if 






primary or secondary has to be built. 






Find length of index pointer segment. 






sequence field, segment length, and 






protected data- length. 






2. For primary indexes, move HIDAM 


LBLDXNS 




root sequence field from user I/O 


LGRBACK 




area to work area. For secondary 


LNULSUP 




indexes, construct SRCH, SUBSEQ, 


LCALLBH 




and DDATA fields. 






3. When the index entry has to be 






suppressed due to SRCH equal to 






NULLVALUE or due to exit routine 






return code, the index pointer segment 






is not inserted. 







V> Work area 



DLZDXMTO 





Routine 


Label 


3. (con't) 






Build temporary blocks: 


LBLDCTLB 




• SDB 












of index pointer segment 






• Update Index Maintenance JCB 






andDSG. 






4. If DLBL cards are provided, write 


LLOAD 






LWORKDS 




base and call DLZDLOCO to open 


LCALLBH 




index data base if not open yet. Other- 


DLZDLOCO 




wise, write index pointer segment to 






workfile and call DLZDSEHO to open 






the workfile. 






5. Prepare DL/I call list to call 


LINXNS 




DLZDLAOO with an *X caU. 


DLZDLAOO 




6. When the last secondary list is 






reached, exit is to LRETURN. On 






error in secondary lists, exit is to 






LABND772 (abend code 772). 
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Figure 2-12.2. Delete Old Index Target Segment (DLZDXMTO) (Part 1 of 2) 





From 

Figure 2-12 
Step 2B 

Li 


DMB Work Area | 




1 1 












SDB 




See note " 


1 1 













1. Find secondary lists and length 
of index pointer segment. 



2. Construct index pointer segment. 

3. If old index pointer segment is 
suppressed, go to step 1 and 
take the next secondary list. 
Otherwise, build temporary 
blocks. 

4. Call DLZDBHOO to read old 
index pointer segment. 



DB Buffer 
Handler 
2-15 



5. Change delete flag and zero 
pointer in index pointer seg- 



i. Call Logger to log index 
pointer segment changes. 



> Work Area 



Figure 2-12.2. Delete Old Index Target Segment (DLZDXMTO) (Part 2 of 2) 
r* INPUT I r PROCESS M^^— i^^— ^^—^ 



7. Call DLZDBHOO to write back the 
changed index pointer segment. 



DB Buffer 
Handler 
2-15 



8. If last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 



DLZDXMTO - Index Maintenance 



DLZDXMTO 



DLZDXMTO - Index Maintenance 



f 



i 

i 





Routine 


Label 


Note: The input control blocks are used 






in all process steps. The output work area 






is modified in all process steps. 






1 . Find SECLISTs and PSDBs of index 


LBLDWKA 




source segment, index target segment, 






and index pointer segment and save 






their address in work area. Decide if 






primary or secondary has to be built. 






Find length of index pointer segment. 






sequence field, segment length, and 






protected data length. 






2. For primary indexes, move HIDAM 


LBLDXNS 




root sequence field from user I/O 


LGRBACK 




area to work area. For secondary 


LNULSUP 




indexes, construct SRCH, SUBSEQ, 


LCALLBH 




and DDATA fields. 






3. When the old index entry has to be 






suppressed due to SRCH equal to 






NULLVALUE or due to exit routine 






return code, the index pointer segment 






is not inserted. 









Routine 




3. (con't) 






Build temporary blocks: 
• SDB 


LBLDCTLB 




• Segment name=sequence field name 

of index prainter segment 

• Update Index Maintenance JCB 

andDSG. 






4. The Buffer Handler is called (PSTSTLEQ; 
to find the old index pointer segment. 
If it is not found, or it is already 
deleted, or the pointer or key are not 
correct, an NE status code is returned 
to the caller. 


LGOXNS 
LDOXNS 




5. Delete flag is set to CO. 






6. Chain maintenance and logical delete 
calls are made to data base module. 


DLZRDBLO 





Extended Description 



7. The Buffer Handler is called 
(PSTBFALT) to write the 
changed index pointer segment 
back. 

8. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 


DLZRDBLO 





Extended Description 
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Figure 2-12.3. Replace Index Target Segment (DLZDXMTO) (Part 1 of 2) 







From 

Figure 2-12 
Step 2C 




DMB Work area 




1 1 1 1. 








SDB "^ 

1 1 


See note"' 













DLZDXMTO — Index Maintenance 









1. Find secondary lists and length 

2. For primary index, continue with 
step 1. Otherwise, construct old 
index pointer segment. 




' ^ Work area 


See Note 


1 1 




segment. 












A. If old and new index pointer 
segment are suppressed, go to 
step 1 and take next second- 
ary list. 






was suppressed, insert new 






C. if old and new index pointer 

and SRCH and SUBSEQ fields 
not changed, replace index 






D. If the old and new index 

suppressed and SRCH and 
SUBSEQ fields were changed, 
delete old index pointer seg- 
ment and insert new index 
pointer segment. 







Figure 2-12.3. Replace Index Target Segment (DLZDXMTO) (Part 2 of 2) 

p INPUT mmm^i^m^mmmmm^ ^ PROCESS ^-i— — i— — a- 



DL2DXMT0 





Routine 


Label 


Note: The input control blocks are 






used in all process steps. The output 






work area is modified in all process 






steps. 






1 . Find SECLISTs and PSDBs of 


LBLDWKA 




index source segment, index 






target segment, and index 






pointer segment and save their 






address in work area. Decide 






if primary or secondary has 






to be built. Find length of 












field, segment length, and pro- 






tected datai length. 






2. Construct old index pointer seg- 


LBLDXNS 




ment from SRCH, SUBSEQ, and 


LGRBACK 




DDATA fields. 


LNULSUP 
LCALLBH 






LBLDXNS 




segment from SRCH, SUBSEQ, 


LGRBACK 




and DDATA fields. 


LNULSUP 
LCALLBH 







Routine 


Label 


4. Replacing of the index pointer 






is done in different ways. 






depending on suppression of 






old and new index pointer 






segment. 






A. When both old and new index 






pointer segments are suppressed. 






no action takes place. 






B. Continue with Lisert sub- 


LINXNS 




routine 






C. DLZDBHOO is called to read 


LGOXNS 




the old index pointer segment. 


LROXNS 




On errors, NE is returned. The 






data base log module is called 






to log the old index pointer 






segment, and after the change of 






the DDATA fields, the new index 






pointer segment. DLZDBHOO is 






called again to v/rite the index 






pointer segment back 






(PSTBFALT). 






D. 


LGOXNS 
LDOXNS 
LINXNS 





4. (con't) 

E. If the old index pointer 
segment was not suppressed, 
but the new one was, delete 
the old index pointer segment. 

5. if last secondary list, return. 
Otherwise, go to step 1 and 
take next secondary list. 



DLZDXMTO - Index Maintenance 



Extended Description 



5. When the last secondary list is 
reached, exit is to LRETURN. 
On error in secondary lists, 
exit is to LABND772 (abend 
code 772). 







Extended Description 



Routine Label 
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Figure 2-12.4. 

■■ INPUT ■«— 



Insert FF-Keys (DLZDXMTO) 



Figure 2-13. HD Space Management (DLZDHDSO) 



:> 



1. Loop through all PSDBs to 
find index source segment. 



2. Find length and key length of 
index pointer segment. 

3. Move FF-key to index pointer 
segment. 

4. Build temporary blocks. 

5. Write the index pointer segment 
to the data base or to the work- 
file. 

6. If last PSDB, return. Otherwise, 
go to step 1 and get next PSDB. 



^ IZZl 



DLZDXMTO - Index Maintenance 



Extended Description 


Routine 


Label 


Note: The input control blocks are used 






in all process steps. The output work 






area is modified in all process steps. 






1. DLZDDLEO passes the LSDB 






address of the root segment with 






an UNLD caU. The DDIR 






address is used and all PSDBs 






in that DMB are inspected if an 






index exists. 






2. Find length of index pointer 


LBLDWKA 




segment and its key length. 






Decide if primary or second- 






ary index has to be built. 






3. Move FFs in the length of the 


LBLDXNS 




index pointer segment sequence 






field to the index pointer 






segment. 











Label 


4. Build temporary blocks: 


LBLDCTLB 




• SDB 






• segment name = sequence 






field name of index 






pointer segment 






• update index maintenance 






JCB and DSG. 






5. Write index pointer segment to 


LLOAD 




index data base if DLBL cards 


LW0RKD5 




are provided. Call DLZDLOCO 


LCALLBH 




to open index data base if not 


DLZLOCO 




yet open. 









From Caller 


4 




.OUTP 




n 




1 


DSG PST n 




^ 1 imti»ii70»inrkfu>IH«in > 


PST 




IdsgdmbnoII pstwrki I 


'' the PST. 

:> 2. Test for FBA. 

A. If yes, go to Figure 2-13.5. 






PSTDMBNM 






PSTACBNM 


DMB 

JDMBFBA 1 


USPCE 


UMAX 








PST 


: 


^ 3. Determine function requested. 






|PSTFNCTN 1 




A. If Get Space, go to Figure 2-13.1. 

B. If Get Space Close to Root 
Anchor Point, go to Figure 
2-13.1. 

C. If Free Space, go to Figure 2-1 3.2. 

D. If Modify the Bit Map, go to 
Figure 2-13.3. 

E. If Backout Get Space, go to 
Figure 2-13.4. 

F. If Backout Free Space, go to 
Figure 2-13.2. 

G. If Backout Modify Bit Map, go to 
Figure 2-13.3. 

4. Exit. 












Return to 
Caller 





I 



DLZDHDSO - Space Manager 







Routine 






1. PSTWRKI contains the length of the 








space to be obtained or freed. 






1 


2. A. If the device is FBA, the device 


DEVCHARI 






characteristics must be obtained 








and the number of CIs per track 








and CIs per cylinder calculated. 






1 


3. A. Get space in a data base CI for 


GETSPACE 






the specified segment as close as 








possible to a specified base RBA. 








The caller passes the address of 








the involved segment's PSDB in 








R5 and the base RBA m 








PSTBYTNM. 






1 


B. Get space in a data base CI for 


GETSPACE 






the specified segment as close as 








possible to a root anchor point. 








The caller passes the address of 








the involved segment's PSDB in 








R5 and the CI number/RAP 








number (in the format BBBR) 








of the involved root anchor 








point in PSTBYTNM. 











Routine 


Label 




3. (con't) 






1 


C. 


Free space that has been allocated 
for the specified segment in a 
data base CI. The caller passes the 
address of the involved segment's 
PSDB in R5. 


FRESPACE 






D. 


Turn on or off the bit in the Bit 
Map representing the specified CI 
of a data base. The caller specifies 
the CI number in PSTBLKNM. 


DLZDHDSO 


FIXBTMP 




E. 


Backs out a previously processed 
'Get Space' call. 


DLZDHDSO 




1 


F. 


Backs out a previously processed 
'Free Space' call. 


FRESPACE 






G. 


Backs out a previously processed 
'Modify Bit Map' caU. 


DLZDHDSO 


FIXBTMP 



I 



I 



Figure 2-13.1. Get Space (DLZDHDSO) (Part 1 of 2) 
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I PSTBYTNMl 





Data Base CI 






FSE 




FSE 




CI number 1 






Bit Map 











I Bit Map 1 



From Figure 
2-1 3 Step 3 


1^ (See Note) 














> 1. Get the CI Into the buffer 
pool that is pointed to by 
the base RBA. 


> „. ,. ....... 1 










1 1 
















DLZDBHOO 








DB Buffer 
Handler 
2-15 


















»■ 2. Determine If enough space Is 


. 


PST 






:> 












there Is enough, store RBA of 
space and. If necessary, update 
the Bit Map. 


1 PSTBYNM 1 




CI number 1 




1 Bit Map I 








3. If no space is found, go to 
step 5. 

^ 4. Locate another data base CI, 
get It into the buffer pool, 
and go to step 2 for the 
following: 

• A CI that is on the same 
track that is in the buffer 
pool. 

• A CI that is on the same 
cylinder that is in the 
buffer pool. 

• A CI on the same track that 
has a 1-bit in the Bit Map. 











Figure 2-13.1. Get Space (DLZDHDSO) (Part 2 of 2) 
■ INPUT -i^— — 



• A CI in the same cylinder 
that has a 1-blt in the Bit 
Map. 






• A CI being within the delta 
cylinders that is In the 
buffer pool. 






• A CI being within the delta 
cylinders that has a 1-blt 
in the Bit Map. 






• The next available CI at 
the end of the data base. 






5. If no space is found, store 


^"^^ 


the error code. 
6. Exit. 




|pstrtcdeJ 






To Figure 
2-13 Step 4 





DLZDHDSO -Space 



Extended Description 



Note: For the functions 'Get Space' and 

'Get Space Close to RAP', the following 

csectsare used: 

Main routine: DLZDHDSO 

DLZDHDSO caUs GETSPACE. 

GETSPACE calls SRCHBLK, 

CALCSRLM, SRCHPOOL, SRCHBTMP, 

BITMPLOC, and BITMPOFF. 

SRCHPOOL caUs ARCHBLK. 

SRCHBTMP calls SRCHBLK. 

2. If distributed free space has been 
specified, a check is made if this block 
is to be left free. If not, a check is 
made to see if a percentage of this 
block is to be left free. If so, this 
percentage is added to the space 
requested. 

To determine if enough space is 
available in a CI, the FSE's in this 
CI are checked. If there is more than 
one FSE in a CI, the free space with 
the largest of the following values 
that will not cause a Bit Map change 
is taken: 



Extended Description 



DLZDHDSO - Space Manager 
Extended Description 



2. (con't) 

• the size itself 

• the size+minimum segment length 

• thesize+2. 

A Bit Map Change is necessary if the 
data base CI cannot accomodate the 
maximum size segment because the 
available space has been used. The 
Bit Map update is performed by 
BITMPOFF. 
4. The calculation of the CI numbers 
for a given range is done by routine 
CALCSRLM. 

Searching through the buffer prefixes 
is done by routine DLZRRHPL. 
Searching through the Bit Map is done 
by routine SRCHBTMP. 







5. A retum code of X'OC will be returned 
to the caller. 







Extended Description 



DLZDHDSO 

Routine Label 
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Figure 2-13.2 Free Space (DLZDHDSO) 



Figure 2-13.3. Modify Bit Map (DLZDHDSO) 



I 



I 
2. 

f 







From Figure 
2-1 3 Step 3 

1 

1 










DL/I Buffer 
P> iDataBaseCI | 






PST 




- 


^ (See Note) 

> 1. Scan through the chain of FSEs in the 
specified data base CI to find the FSE 
which applies. 

^ 2. Check if there is more free space on the 


/ 


PSTBUFFA 




PSTOFFST 


PSTBLKNM 




\ 


DL/I Buffer 


Data Base CI | 










befieed. 
^ 3. Build a new FSE and/or change existing 




ni /I Buffpr — -H 










_._ 














4. Log the change of the data base CI. 








rC> ( ) 


f-4 








Log Tape 


DLZRDBLO 




OB Logger 
2-16 


5. Issue BFALT call to t|i 


e Buffer Handler. 




DLZDBHOO 




DB Buffer 

HarKller 

2-15 














CI number 1 




> 6. If necessary, update the dix map. 




__^ CI number 1 




Bit Map 1 


1' 






4 


To Figure 
2-13 Step 4 


1 Bit Map I 












7. Exit. 





DLZDHDSO — Space Manager 
Extended Description 



Routine Label 



Extended Description 



DLZDHDSO 

Routine 



Note: For the functions 'Free Space' 
and 'Backout Free Space', the 
following csects are used: 

Main routine: DLZDHDSO 

DLZDHDSO calls FRESPACE 

FRESPACE calls BITMPLOC 
and BITMPON. 

1. The scan will be finished when a FSE 
with a higher offset than the one in 
PSTOFFST is reached, or, when the 
end of the FSE chain is reached. 

2. The purpose of this check is to find 
out whether there will be a contig- 
uous piece of free space after process- 
ing the current Free Space call. 

6. A Bit Map change is necessary if the 
data base CI can accomodate the 
maximum size segment after process- 







6. (con't) 

ing the Free Space call. In this case, 
the appropriate bit in the Bit Map 
has to be turned on. The Bit Map 
update is performed by routine 
BITMPON. 







DLZDHDSO - Space Manager 



Extended Description 





From Figure 
2-13 Step 3 


11^ (See Note) 






ACB Ext. PST 




> 1. Get the CI number of the Bit 


> r-T 1 


1 DMBLRECL | 


PSTBLKNM 




Map that applies. 






Ipstblknm J 




UBTMPOFS 












pool. 




^ 


DLZDBHOO 




DB Buffer 
Handler 
2-15 














> 3. Apply the change to the Bit 


__ . ^ ni /I Buffer 1 


1 Bit Map 1 


Map. 




W^ 1 








PST 




^ 4. Log the change of the Bit Map. 


- . .> x-x 1 


[pSTVy/RKI-4"] 




^ 








u 

Log Tape 


DLZRDBLO 






OBU^, 
















S 5. Mark the buffer contaming 


> Buffer 1 


1 


] 




the Bit Map as altered. 






^ Prefix 

1 1 




^ 


DLZDBHOO 








DB Buffer 
Handler 
2-15 








^^^H 


■B 








To Figure 
2-13 Step 4 



i 



I 

I 

3 



Note: For functions 'Fix Bit Map' and 
'Backout Fix Bit Map', the following 
csects are used: 






Main Routine: DLZDHDSO 






DLZDHDSO caUs BITMPLOC, 
BITMPON, and BITMPOFF. 






1 . This step is performed by routine 
BITMPLOC. 






2. A 'Byte Locate' call is issued. 


DLZDBHOO 




3. The update of the Bit Map is performed 
by routine BITMPON or BITMOFF. 






5. A 'Buffer Alter' call is issued. 


DLZDBHOO 






to 

I 

NO 



I 



r 
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o 



o 
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Figure 2-13.4. Backout Get Space (DLZDHDSO) 





PST 






PSTBUFFA 




PSTOFFST 




DL/I Buffer 






1 1 




1 



r PROCESS ■ 



1. Scan through the FSEs of the 
given CI and find the FSE 
that applies. 



2. If the previously freed space 
cannot be found, store error 
code and go to step 9. 



3. If the previously freed space 
is not in the middle of a freed 
area, go to step 5. 



4. Create a dummy FSE. 



> ^^ — \> 5. Change the FSE(s) to reflect 
*■ the aquisition of the space. 



6. Prepare the information for 
logging the data base change. 



7. Mark the buffer as altered. 



DB Buffer 
Handler 
2-15 



> 8. Update the Bit Map if necessary. 



DLZDHDSO - Space Manager 



Extended Description 



> 



> 



t> 



-^ DL/I Buffer 

I I 



t> 



:> 



CZZl 



■N. 

n^ CI number 1 

' Bit Map I 



DLZDHDSO - Space Manager 



Note: This function backs out a Free 
Space call processed previously. The 
following csects are used: 

Main routine: DLZDHDSO 

DLZDHDSO caUs SRCHBLK. 

2. PSTOFFST contains the offset to the 
part of the data base CI which was 
freed during the Free Space call to be 
backed out. 



stored in 



3. A return code of X'OC'i 
PSTRTCDE. 



7. A 'Buffer Alter' call is issued to the 
Buffer Handler. 



^escriptioi 



8. A Bit Map update is necessary if the 
data base CI cannot accomodate the 
maximum length segment after backing 
out the previously processed Free 
Space call. The Bit Map update is 
performed by routine BITMPOFF. 



Figure 2-13.5. FBA Support Device Characteristics Routine (DLZDHDSO) 






AMD 


From Figure 
2-13 Step 2 


4 




PST 
PSTSWKAR 

PST 




1 AMDDSN I 


^ 1. Issue SHUWCAI to obtam volume " > 


PST 


T serial number of data base. 






1 PSTvi sp 1 > 2. Issue GETVCE to obtain device " " — S 


PSTSWKAR 
DMB 






characteristics. 

3. Is device FBA? 

4. If no, issue message DLZ831I and 
end task. 






b. It ves. calculate CIs per track and " ' "> 


DMBCICYL 


CIS per cylinder. 






DMBCITRK 




DMB 


6. uatcuiate scan value. "> 


DMBACBDL 


7. Exit. 






^■H 


1^ 






To Figure 
2-13 Step 3 







Extended Description 


Routine 


Label 











Routine 


Label 









I 



\ 



s, 
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Figure 2-14. Open/Close (DLZDLOCO) 



m INPUT I 



T" 



! j^ 2. If PSTFNCTN = PSTOCDCB, 

open this one ACB. 



V- 



Note: For each of the following 
steps, DOCDCB (Figure 2-14.1) 
is called. 



1. If PSTFNCTN = PSTOCPCB, 
loop through all SDBs and 
secondary lists to find all 
ACBs to be opened. 



3. If PSTFNCTN = PSTOCDSG, 
process all ACBs in DSG. 



4. If PSTFNCTN = PSTOCDMB or 
PSTOCALL, process all ACBs 
in one DMB or all ACBs in all 
DMBs. 




> 



JDDIRCODE I 



Figure 2-14.1. Open/Close DOCDCB Routine (DLZDLOCO) 

From Fig. 




1. Issue DOS OPEN. 



2. Issue 'MODCB' to update the 
exit list. 



3. Issue 'SHOWCB' and compare 
DMB entries to VSAM define 
entries. 



4. For an empty ESDS file, write 
control record. 



5. Log the open record. 



6. For HISAM KSDS, go back to 
Step 1 to open ESDS. 



7. Call compression routine. If 
necessary. 



^> ACBEXT 

JDMBFLGS I 



f 



I 



3 

s. 

i 



DLZDLOCO - Open/Close 



DLZDLOCO - Open/Close 
Extended Description 



§• 






I 

9 





Routine 


Label 


1 . This function is used by the utilities 


PCENTRY 


AROUND 


DLZRDBCO and DLZURGPO. It is 


PSROUT 




also used by DLZDLAOO when the 


DOCDCB 




first data base call to a not open data 






base is issued (batch only). For 






PROCOPT=L, only one data base is 






opened. For all other processing 






options, all related data bases are 






opened as well (index data bases and 






logically related data bases). 






2. DLZDLROO uses this function for 


ACBENTRY 




positioning a HSAM data base at the 


DOCDCB 




start point. It is also used by 






DLZURDBO. It opens only one ACB, 






i.e. for fflSAM only KSDS or ESDS. 






3. DLZDLDOO uses this function when it 


DGENTRY 




finds a logically related data base that 


DOCDCB 




is not opened (this can happen because 






of delete sensitivity propagation). 







Extended Description 


Routine 


Label 


4. PSTOCALL + PSTOCOPN: 


DENTRY 
DROUTINE 




DLZOLIOO uses this call to open all 


DOCDCB 




data bases in the system eligible for 






initial opening (online only). 






PSTOCALL + PSTOCCLS: 






This call is used to close all ACBs in 






the DL/I system (e.g. DLZDLAOO). 






PSTOCDMB : 






This caU is used by DLZOLIOO for 






deferred opening (online). It is also 






used by DLZDXMTO and by data 






base utilities. It opens/closes one 
ACB (two ACBs for HISAM). 











1 . This part is called from all steps of 
Figure 2-14 for opening. If the data 
base is open, return immediately. 
Immediate return is also done when the 
call is PSTOCALL and initial opening 
is not planned. Unsuccessful opens 
have return error code in PST and flag 
in JCB. 'DLZ020r is issued. 

2. The exit list is updated with the 
address of the error handling routines 
ofDLZDBHOO. 

3. Control interval size, relative key 
position, and key length of DMB is 
compared to VSAM catalog entries. 
MISMATCH: DLZ025I, DLZ027I, 
and DLZ028I. 

For HISAM, the number of logical 
records in VSAM catalog has to be 
zero for PROCOPT=L. For HD, the 
high used RBA is inspected. Message 
'DLZ023r is issued for conflicts. 


DOCDCB 

DOCMOD 
DOCSHOW 


DOCOPEN 



Extended Description 



4. The first control interval is written 
(for HISAM, as many records as fiU 
one CI). It contains DL/I control 
information. For HD, the ACB is 
closed and opened again to simulate 
'NOT LOAD- to VSAM. 

7. All PSDBs are inspected to determine 
if a compaction routine with 'INIT' 
specified exists. 


DOCFIRST 
DOCVARI 


NOTHIDAM 



to 

I 



to Figure 2-15. DB Buffer Handier (DLZDBHOO) (Part 1 of 2) 
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^ 






PSTFNCTN 1 




Flag Name 


Hex Code 


PSTBYLCT 


02 


PSTBKLCT 


01 


PSTBYALT 


06 


PSTBFALT 


05 


PSTGBSPC 


03 


PSTFBSPC 


04 


PSTBFMPT 


04 


PSTPGUSR 


07 



L :J 



What function is requested? 



1. For HDAIVI or HiDAIVI: 



A. 
B. 
C. 
D. 
E. 
F. 
G. 
H. 



Byte iocate. 

(See Figure 2-15.1, Step 1) 

Blocl< locate. 

(See Figure 2-15.1, Step 4) 

Byte alter. 

(See Figure 2-15.2, Step 1) 

Mark buffer as altered. 
(See Figure 2-15.2, Step 3) 

Get buffer space. 
(See Figure 2-15.3) 

Free buffer space. 
(See Figure 2-15.9) 

Mark buffer as empty. 
(See Figure 2-15.9) 

Purge buffers. 

(See Figure 2-15.10} 



Figure 2-15. DB Buffer Handler (DLZDBHOO) (Part 2 of 2) 

m INPUT MBi^ii-^^^^ 



PST 

i PSTFNCTN 



Flag Name 


Hex Code 


PSTBYLCT 


02 


PSTSTLEQ 


09 


PSTSTLBG 


OC 


PSTWRITE 


08 


PSTPUTKY 


OD 


PSTMSPUT 


OE 


PSTBFALT 


05 


PSTGETNX 


OB 


PSTERASE 


OA 



2. For HIDAM index. Simple HiSAM, 
or HISAM (ESDS or KSDS). 


A. 


Read a record. 


B. 


SETL equal. 


C. 


SETL begin. 


D. 


Write a new record to 
HISAM ESDS. 


E. 


Insert a record by key into 
a HiSAM KSDS. 


F. 


Insert record (s) sequentially 
into a HISAM KSDS. 


G. 


Write a record by RBA to a 
KSDS or ESDS. 


H. 


Read the next record in a 
KSDS. 


'■ 


Erase a record from a KSDS. 


3. Exit 



DLZDBHOO - Buffer Handler CSECT 



DLZDBHOO - Buffer Handler CSECT 





Routine 


Label 


1. 

A. 


Locate relative byte number. 


DLZDBHOO 


BYLCT 


B. 


Locate relative block number. 


DLZDBHOO 


BKLCT 


C. 


Locate a relative byte number 
and mark buffer altered. 


DLZDBHOO 


BYALT 


D. 


Mark a buffer containing 
data as altered. 


DLZDBHOO 


BFALT 


E. 




DLZDBHOO 


GBSPC 


F. 




DLZDBH03 


MRKEMPT 


G. 




DLZDBH03 


MRKEMFT 


H. 


Purge all buffers altered by 
a task. 


DLZDBH03 


PGUSRl 



Extended Description 






Routine 


Label 


2. 
A. 


Read a record by RBA from 
a KSDS or ESDS. 


DLZDBH02 


HSREAD 


B. 


Get a record by root key from 
a KSDS. 


DLZDBH02 


STLEQ 


C. 


Read the record containing 
the first root segment in a 
KSDS. 


DLZDBH02 


STLBG 


D. 




DLZDBH02 


LOWRITE 


E. 




DLZDBH02 


PUTKY 


F. 




DLZDBH02 


MSPUT 


G. 




DLZDBH02 


HSWRITE 


H. 




DLZDBH02 


GETNX 






DLZDBH02 


HSWRITE 



Extended Description 




I 
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o 



o 
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Figure 2-15.1. Byte Locate/Block Locate (DLZDBHOO) 



Figure 2-15.2. Byte Alter/Buffer Alter (DLZDBHOO) 



I pstbytnm] 



Figure 2-15 
Step 1A 



Figure 2-15 
Step 1 B 



I PROCESS ■ 



1. Convert the given RBA to a VSAM 
control interval (CI) number and 
an offset within the control 
interval. 

2. Locate the buffer address. 



3. Go to Step 6. 



f BKLCT: 

4. Locate the buffer address. 



^ 5. Convert the CI number to a RBA. 
6. Exit. 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



-OUTPUT — 
> PST 




PSTBLKNM 




PSTOFFST 


>PST 




1 PSTBYTNM 





■■ PROCESS ■ 



-"^ 1. Convert the RBA to a block 
number and an offset. 

2. Locate the buffer address. 



Figure 2-15 
Step ID 



3. Turn on the bit in the buffer 
prefix to indicate that the 
buffer was modified or altered 
by this user. 

4. Exit. 



-^>, PST 



1 . The relative byte number for the 
control interval is retrieved from 
PSTBYTNM. 

5. The same as in Step 1 except that 
a control interval number is passed 
in PSTBLKNM. 


DLZDBHOO 


CONVER 




DLZDBHOO - Buffer Handler CSECT 



Extended Description 



1 . Byte alter is a combination of byte 
locate (Figure 2-15.1, Steps 1-3) and 
buffer alter (Figure 2-15.2, Steps 3 
and 4). 

3. The bit that is turned on is in the 
2-byte field BFFRUSID. The 16 bits 
correspond from right to left to the 
user ID indicated in the PPST. If a 
user ID higher than 1 6 is assigned, 
two or more users share the same 
bit. 



Extended Description 



DLZDBHOO 

Routine 



I 



i 



I 

SO 



I 
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Figure 2-15.3. Get Buffer Space (DLZDBHOO) 



p INPUT • 



Figure 2-15.4. LOCATE Routine (DLZDBHOO) 



BFFRs - 



e 



Figure 2-15 
Step IE 



1. Get the address of the selected 
buffer subpooL 

2. Search the buffer prefixes of 
the subpooi to find a buffer 
that can be used. 

3. If a reusable buffer cannot be 
found, wait until one becomes 
available. 



BFFR - 



^ 4. Move the control interval ID 
into the buffer prefix. 



"j^ 5. If the buffer is busy, wait 
for it. 



> 6. Write the buffer if necessary. 



"Ty 7. Mark buffer 'non-reusable'. 



8. Put the address and the size 
of the buffer into the PST. 



DLZDBHOO - Buffer Handler CSECT 
Extended Description 



[bffrciid 



4q 



Data Base 
^ BFFR 



INPUT I 



tiz^ 



Q 



Figure 2-15.1 
or 2-15.2 



DLZDBHOO - Buffer Handler 



1. The subpooi information table (SBIF) 
is used to find a buffer subpooi with 
buffers that contain the least number 
of bytes needed for this space 
request. 

2. Buffers that are marked non-reusable 
or are permanent write error buffers 
cannot be used. 











Label 









I 
I 

I ■ 

I 

I 

I 

I 

I 

L_. 



1. Search buffer prefixes for the 
requested block. 



2. Check if the predecessor in the 
write chain is in the buffer 
pool. Write buffer if necessary. 



3. If the block is new, put the 
buffer on the write chain and 
mark it as altered. 



4Q 



m 



LOCATE New Block 
Processing 

2-15.7 



> 4. If the block is not new, read 
the block into the buffer. 





Routine 


Label 










i 
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J 
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Figure 2-15.5. LOCATE Buffer Search (DLZDBHOO) 



m INPUT • 



Figure 2-15.6. LOCATE Buffer Write (DLZDBHOO) 



I 




From 

Figure 2-1 5.4 
Stepi 








1 




1^ LOCATE: 








> 1. Search the buffer prefixes for 
the requested data base CI 
(Control Interval). 

A. If the CI is not found, go 
to Step 4. 

B. If the CI is found as pending 
in the buffer pool, ENQ on 
this CI. After control is 
returned, go back to Step 1. 

C. If the CI is found in the 
buffer pool and is not busy, 
go to Step 2. 








D. If the CI is found in the 

buffer pool and is busy, ENQ 
on this CI. After control is 
returned, go back to Step 1. 








2. Pass the buffer to the requestor. — t— ' 


> 


PST 






^^^^^^ 


Return to 
Caller 




PSTBUFFA 






PSTDATA 










1 — : 

1 

r-1 


> 4. Search the use chain from top 
bottom for a buffer that can 
be used. 






L_: 


> 5. If no buffer is available, ENQ 
on the pending CI of the buffer 
on the bottom of the use chain. 
After control is returned, go 
back to Step 4. 

6. Exit. 


•n 

Figure 2-15.4 
Step 2 





DLZDBHOO - Buffer Handler CSECT 
Extended Description 



2. Put the buffer prefix address into 
PSTBUFFA and the buffer address 
into PSTDATA. 

4. A buffer can be used if: 

• It is not marked 
non-reusable. 

• It is not a permanent 
write error buffer. 

• It is not currently 
enqueued for a pending CI. 








m PROCESS ■ 



Figure 2-1 5. 
Step 2 



' BUFFOUND: 



DMB 



^ 1. Move the CI identifier into the 
buffer prefix of the buffer 
that is to be used. 



_!: ^ 2. If the CI being processed is not 
new, go to Step 5. 



1 



V 3. If the predecessor in the write 
" ""* chain can be found in the buffer 
pool, go to Step 5. 



4. If there is a sequence error, 
exit. 



I > 5. If the buffer is busy, ENQ on 

' 1 this buffer. 



I ^ 6. If the buffer does not need to 

be written, go to Step 8. 



S 7. Write the buffer. 

8. Take the buffer over. 

9. Exit. 



E 



I 



5 

i 



Q 



DLZDBHOO - Buffer Handler CSECT 





Routine 




1 . Moving the CI identifier means 
enqueuing on the pending CI. 






2. This check is made to ensure that 
the CIs of the data base get initialized 
in sequence. 






4. X'04' is stored in PSTRTCDE. 






5. A buffer is busy if: 






• It is being read into. 

• It is being written. 

• It is waiting for its 
predecessor in the write 
chain to be written. 






8. 'Taking over' a buffer consists of: 






• Moving the CI identifier from 
BFFRNPST to BFFRPST. 

• Turning off BFFRPNNQ and 
turning on BFFREXNQ in 
BFFRSW. 

• Putting the buffer at the 
top of the use chain. 

• Clearing the buffer (with 
zeros). 







Extended Dewription 




lO Figure 2-15.7. LOCATE New Block Processing (DLZDBHOO) 



Figure 2-15.8. LOCATE Read (DLZDBHOO) 
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BFFRs 1 > 



f=l 



tzzJ 



■■ PROCESS ■ 



From 

Figure 2-15.4 
Step 3 



I— :> 



L_: 



1. Search buffer pool for the 
predecessor in the write chain. 
If it is found, go to Step 3. 

2. If the predecessor cannot be 
found, go to system ABEND. 



3. If the predecessor is not being 
written, go to Step 5. 

4. Enqueue the predecessor that is 
being written. 

> 5. If the predecessor is not a 
permanent write error buffer, 
go to Step 7. 

6. Mark the current buffer as a 
permanent write error buffer. 
Then go to Step 9. 

7. Put the buffer on the bottom 
of the write chain. 

^ 8. Mark the buffer as altered. 

9. Put the buffer prefix address 
and the buffer address into the 
PST. 



DLZDBHOO - Buffer Handler CSECT 



Extended Description 



nz] 



-OUTPUT^ 
^ BFFR 










> 


PST 






PSTBUFFA 




PSTDATA 










B ISSREAD: 

> 1. Read the requested Ci from the 
data base 




■ OUTPUT i^ 








> CnntrnI Block 1 


> 2. If no read error occurred, go 
to Step 4. 

3. If an I/O error occurred, put 
return code X'08' (PSTIOERR) 


' 










in PSTRTCDF. Then exit. 


> PST 1 


4. Put the buffer prefix address 
and the buffer address into the 


Return to 
Caller 


1 

> 


PSTRTCDE j 




PST 




PST. 






5. Exit. ■ 


Figure 2-15.4 
Steps 




PSTBUFFA 




PSTDATA 









DLZDBHOO - Buffer Handler CSECT 
Extended Description 



4. The purpose for enqueuing the 
predecessor is to wait for completion 
of the writing. This is necessary to 
find out if the buffer is a permanent 
error buffer. 







Extended Description 







Routine 


Ubel 
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Figure 2-15.9. Free Buffer I 

m INPUT aa-i^— — IB— — 



3 (DLZDBH03) 



P^.^ 



DMB 

Subpool 

. Directory 



t=d' 



BFFR - 



From 

Figure 2-15 
Steps IF 
andIG 


^ MRKEMPT: 






1 


^ 1. Get the first buffer prefix in 
tlie subpool that applies to the 
call. 






1 — : 
1 


^ 2. If PST fields PSTDMBNM, PSTACBNM, 
and PSTBLKNM do not match BFFR 
fields BFFRDMB, BFFRDCB, and 
BFFRCIID,gotoStep4. 

> 3. If the PST fields match the 
BFFR fields: 












> BFFR 

1 1 










B. Issue RELPAG macro. 










C. Put the hiiffer nn the hnttnm 




'n'^ 








4. If this is not the last buffer 
prefix, get the next one and 
go back to Step 2. 


^ 










Figure 2-15 
Step 3 





DLZDBH03 - Buffer Handler CSECT 



5P 
I 

to 

s 

% 



O 

1 



Extende^Description 



1. The DMB subpool directory and the 
DMB number in PSTDMBNM are 
used to find the buffer subpool that 
applies to the call. 

2. The caller can have the buffer 
handler free: 

• Only one buffer. (PSTDMBNM, 
PSTACBNM, and PSTBLKNM 

• All buffers of a data set. 
(PSTDMBNM and PSTACBNM 
=5^0; PSTBLXNM = 0). 

• All buffers of a data base. 
(PSTDMBNM = DMB number of 
the data base; PSTACBNM and 
PSTBLKNM = 0). 



^xtende^Desg|igtior^ 



DLZDBHOO 

R9titinf 



iib&L 



r 
o 
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JO Figure 2-15.T0. Purge Buffers (CHKP Function) (DLZDBH03) (Part 1 of 2) 

I 

2 



Figure 2-15.10. Purge Buffers (CHKP Function) (DLZDBH03) (Part 2 of 2) 



I PSTDBPCB 1 1 DBPCBJCB 



From 

Figure 2-15 
Step 1 H 




Wi 


1^ PGUSR: 


: 


y 1. Get address of the JCB. 


i 


► 2. If function is not CHKP, go to Step 19. 


^ 


»> 3. Get address of DDIR entry. 


* 


"3 


► 4. Get address of DMB prefix. 


3 


> 5. If data base organization is not SH ISAM, 
HISAM, or index data base, go to Step 17. 


; 


' 6. Get the RPL address. 


7 


► 7. If no request were made on this RPL, 
go to Step 11. 




8. Go test if ACB busy. 






TESTACB 






Test ACB Routine 

2-15.12 




: 


► 9. Issue VSAM ENDF 


EG for this RPL. 





Idivibacbrp I 



JRPLACB 



-| ^ 13. If no request were made on this RPL, 

go to Step 17. 



E 



JPSILDIRA I 



10. Post DMB ECB complete. 



1 1. If HISAM data base, update to next 
ACB extension. 



12. Get the RPL address. 



14. Go test if ACB busy. 



Test ACB Routine 



15. Issue VSAM EIMDREG for this RPL. 

16. Post DMB ECB complete. 

17. Update to next PSB intent list entry. 



— ; ► 18. If not end of PSB intent list, return 



to Step 3. 
19. Go to normal purge. 



DLZDBH03 - Buffer Handler CSECT 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 



Extended Description 



Extended Description 



2. Field JCBPRESF in the JCB is checked 
for encoded checkpoint function 
(FUNCCHKP X'85'). If function is not 
CHKP, go purge the DL/I buffers. 

5. If data base organization is not SHISAM 
(field DMBORG; bitDMBSHIS X'Ol' not 
set on), or HISAM (bit DMBISAMl 
X'02' not set on), or an index data base 
(bit DMBNDEX X'08' not set on) go 
update to next PSIL entry. 

9. VSAM ENDREQs are issued for every 
SHISAM, HISAM, and index data base 
to ensure that the VSAM buffers are 
written to the data base. 







11 . If the entry is for HISAM, update to the 
next ACB extension. For HISAM, 
ENDREQs must be issued for both the 
KSDSandESDS. 

18. Continue scan of the PSB intent list until 
all have been processed. When processing 
is completed, go purge the DL/I buffers. 







Extended Description 


Routine 


Ubel 
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Figure 2-15.11. Purge Buffers (DLZDBH03) (Part 1 of 2) 



am INPUT I 






e 



5.10 










# 


PGUSR1: 






3 




1. Get the first of all buffer 
prefixes. 






T 




2. If the buffer was not altered 
by this specific user, go to 
Step 11. 






T 


► 


3. If the identifiers are not 
equal, go to Step 11. 






1 

1 ' 
1 


> 


4. If the buffer is not 

non-reusable, go to Step 6. 






I 


> 

> 


5. Mark the buffer empty, issue 

RE LP AG macro, and put the buffer 
on the bottom of the use chain. 






1 


. BFFR SBIF 


— 1 


Then go to Step 1 1. . 

6. If the buffer is not a 

permanent write error buffer, 
go to Step 10. 




1 1|U»CK.,„ 1 


1 ■ 

1 






L_: 


> 


7. Delete this user from the user 


f* 


"F^ 




mask field in the buffer prefix. 















Figure 2-15.11. Purge Buffers {DLZDBH03) (Part 2 of 2) 
p INPUT I ■■ PROCESS ^-i— 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 



1 . This routine scans all buffer prefixes. 

3. The caller may select a certain data 
base, a certain data set, or certain 
buffers to be purged. The choice is 
indicated by putting the number of 
the desired item into PSTDMBNM, 
PSTACBNM, or PSTBLKNM. Zeroes 
in these fields indicate that purging of 
all components of the item on the next 
higher level is desired. This module 
checks the contents of the above 
mentioned PST fields against the con- 
tents of fields BFFRDMB, BFFRACB, 
and BFFRCIID in the buffer prefix. 

4. Buffers that are non-reusable are freed 
during a purge call. 

6. Permanent write error buffers are not 
freed until all tasks, which either 
altered the buffer, or might be 
interested in it because they use the 
data base, have terminated. 



Extended Description 



DLZDBHOO 

Routine 



Oata Base 
Control 
Interval (CI) 



8. If BFFRUSID is now zero, or if 
there are no more potential 
users for this buffer: 

A. Mark the buffer empty. 

B. Issue RELPAG macro. 

C. Put the buffer on the bottom 
of the use chain. 

9. Go to Step 11. 

> 10. Write buffer to Disk. 

1 1. If this is not the last buffer 
prefix, get tiie next one and 
return to Step 2. 



BFFR SBIF 



4Q 



I 

i 



7. Before the bit in BFFRUSID, which 
corresponds to the user identifier (in 
the PPST) of the current task, is turned 
off, a check is made whether any tasks 
are active that would share the bit with 
the cunent task. (Refer to the notes in 
the Figure for routine BFALT.) 







DLZDBH03 - Buffer Handler CSECT 
Extended Description 



. A task is a potential user of a buffer 
if at least one of the DSGs in the 
PSB has the same DMB and ACB as 
in fields BFFRDMB and BFFRACB 
of the buffer prefix. 



JS&SL 



Extended Description 



DLZOBHOO 

Routine 



9 
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Figure 2-15.12. Test ACB Routine (DLZDBH03) 



. INPUT mm 


R1 — 

1 1 


R7 — 

1 1 


ACBXT _ 


JDMBECB 1 
PST — 


JPSTPREAD 1 


R2 — 

1 1 


RO — 


1 1 


R2 _ 


1 1 





From Figure 
2-15.10 
Step 8 or 14 



- -^ 1. Save RPL address. 

2. Get PST address. 

3. If DMB ECB not busy, go to Step 9. 

4. Indicate wait was necessary. 

5. Get PPST address. 

6. Indicate enqueued by buffer handler. 

7. Issue wait. 

8. Reset enqueued by buffer handler 
Indicator. 

9. Restore RPL address. 

10. Indicate DMB ECB is busy. 

11. Return to caller. 



_ , : ► RO 



2-15.10 
Step 9 or 15 



DLZDBH03 - Buffer Handler CSECT 



Extended Description 


Routine 


Label 


3. Byte 2 of DMB ECB set to X'80'. 


TESTACB 




4. Bit PSTIWAIT in field PSTCLRWT in 






PST set on. 






6. Bit PPSTBF in field PPSTIND in PPST 






set on. 






7. DLZIWAIT macro issued. 






8. Bit PPSTBF in field PPSTIND in PPST 






setoff. 






9. 




NOWAIT 


10. X'80' in byte 2 of DMBECB turned off. 







Extended Description 



o 



c 



S- 



o 



o 



o 



o 



Figure 2-16. DB Logger (DLZRDBLO) (Overview) 



r> PROCESS ■ 



DLZRDBLO - DB Logger CSECT 

Extended Description 









Note: Tlie three different functions 
of the logger are associated with the 
three different entry points into it: 

• DLZIDBLO (Step 2) 

• LOGWR (Step 4) 

• WRIAHEAD(Step5) 

1. Initialize logger. (See Figure 2-16.1) 

2. Build a log record and move it to 
the log I/O area. (See Figure 2-16.2) 

3. Give control to asynchronous log 
subtask (online only). (See Figure 
2-16.3) 

4. Move a log record (which has been 
built by another module) to the log 
I/O area. (See Figure 2-16.4) 

5. Write log information physically to 
tape. (See Figure 2-16.5) 

6. Close the log file. (See Figure 2-16.6) 



7. Check for disk errors. (See Figure 
2-16.7) 




i 



Extended Descripti 



1. 


DLZRDBLO 


DLZRDBLO 


2. 




DLZIDBLO 


3. 




ONLINT 
ONLLOGWl 


4. 




LOGWR 


5. 




WRIAHEAD 


6. 




LOGCLOSE 


7. 




PUTERROR 




I 



I 



5 

o 



t 






Figure 2-16.1. Initialize Logger (DLZRDBLO) 



From 
Figure 2-16 
Step 1 



1. Initialize entry points in 
SCD. 

2. Open the log file and if 
successful turn open bit 
on in SCD. 

3. Issue error message if open 
failed and disk logging was 
specified. 

4. Restore registers. 



DLZRDBLO- DB L 



Extended Description 


Routine 


Label 


1 . The entry point to the lo^er module 


DLZRDBLO 




initially points to the initialization 






routine. After initialization it con- 






tains the entry point of DLZIDBLO 






All of the entry points to the various 






logger routines are in the SCD after 






initialization. 






2. If tape logging is specified, the DTF 






is opened. 






If disk logging is specified, the ACB 






is opened and tested if successful. 






3. Message DLZ020I is issued if an 






open error occurred with disk 






logging. 






Message DLZ077I is issued if the 






log was opened successfully with 






disk logging. 







Extended Description 



Routine Label 
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Figure 2-16.2. Build Log Record (DLZRDBLO) (Part 1 of 2) 



JCBPRESF > A_ Detect the Icind of log call. 



PSTBYTNM 




DSGDCBA 


PSTBLKNM 


DSGINDA 


PSTDATA 




PSTOFFST 


DSGDMBNO 


PSTWRK1 
PSTWRK4 


DSGACBNO 

















DCBLRECL 


DMBDL 






DL/I or VSAM 


DMBPRS2 







..-J 



■■ PROCESS ■ 



Figure 2-16.2. Build Log Record (DLZRDBLO) (Part 2 of 2) 



Figure 2-16, 
Step 2 



I 

I — J> 

I 



1. Build the log record: 



B. Move header information 
into work area. 

C. Move data into workarea. 

D. If all data does not fit 
into log record, move as 
much data as possible. 

2. Move date and time into 
log record. 



HD 



^ 3. Move log record to I/O area: 

If log record does not 
fit into I/O area, do Step 
4. Otherwise, go to Step 5. 



DLZRDBLO - DB Logger CSECT 
Extended Description 



CD 

I 



§ 



I 



1 . Depending on the kind of log record 
being processed, the logger will build 
one of the following type of log record: 

• Physical insert record 

• Physical replace record 

• Physical delete record 

• Logical delete record 

• Pointer maintenance record. 

The maximum logical record size 
for a log record is 512 bytes. The 
blocks are undefined with a maximum 
of 1024 bytes. 



Extended Description 



DLZRDBLO 

Routine Label 




4. Write the contents of the 
I/O area to tape or disk. 

A. If logging is being done in 
a batch environment, 
issue the PUT macro 
immediately. 

B. If logging is being done in 
an online environment, 
pass control to: 



Asynchronous 
Log Subtask 
2-16.3 



5. Check for disk errors 
if disk logging. See 
Figure 2-16.7. 

6. If the log request is associated 
with a buffer, move the 
number of the last written 
log block from SCDLOCOU 
into the buffer prefix. 

7. If more data is to be logged, 
return to Step 1C. 
Otherwise; 



DLZRDBLO - DB Logger CSECT 
Extended Description 



4. B. In an online environment, the 
PUT macro is issued from the 
Asynchronous Log Subtask in 
order to avoid losing tasks when 
EOV is encountered on the log 
tape. 

6. The purpose for keeping the number 
of the last written log block in the 
SCD and in the BFFR is to enable 
DLZDBHOO to determine if a log 
record has to be written out before 
an update is appUed to a data base. 

7. There will be more data to be logged 
if all data did not fit into the log 
record. See Step ID. 
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K> Figure 2-16.3. Asynchronous Log Subtask (DLZRDBLO) 
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E 
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to 




> 1. Lock the SYSTEM ECB. 

> 2. Turn off posted PRIVATE ECB. 

> 3.PosttheLOGI/OECB. 

^ > 4. Issue IWAIT on PRIVATE ECB. 

C> 5. Issue PUT. 



^ 6. Post the PRIVATE ECB. 

^ 7. Turn off posted LOG I/O ECB. 

8. Go Into wait again on 
LOG I/O ECB. 

S 9. Post the SYSTEM ECB. 



ISCDESECB I 
> PRIVATE ECB 

Iprivecb I 



.J^ SCD 



IQ 



PRIVATE ECB 
[PRIVECB I 

' SCD 

Iscdelecb"! 



Figure 2-16.4. 


Move Log Record (DLZRDBLO) 








LOG I/O 
AREA 


From 
Figure 2-16, 


1^ (See Note) 

^ 1. If the log record fits into 
the space currently 
available in the LOG I/O 
AREA, go to Step 4. 

> 2. Write the current contents 
of the LOG I/O AREA to the 






LOG 
RECORD 


[dlength 1 


LOG I/O 
AREA 


1 CURSIZE I 






1 |-^ 


c>n 






log tape or disk. 


3. Check for disk errors if 
disk logging. 
(See Figure 2-16.3.) 




^ LOG I/O AREA 


AREA _ 




> 4. Move the log record to 


1 LOG record! 




the LOG I/O AREA. ZZ 






1 

Figure 2-16 







DLZRDBLO - DB Logger CSECT 



d Descripti) 



Steps 1,2,3,4, and 9 are performed 
within CSECT DLZRDBLO. 

Steps 5, 6, 7, and 8 are performed 
within the Asynchronous Log Writer 
Subtask. 

1 . The SYSTEM ECB is used for commu- 
nication between DLZRDBLO and 
DLZODP. It is locked in order to 
prevent any other task from entering 
the logger while the I/O is going on. 

2. The PRIVATE ECB is used for commu- 
nication about the completion of I/O 
between the Asynchronous Log Subtask 

a and DLZRDBLO, 

3. The LOG I/O ECB is used for commu- 
nication about the need to issue a 
PUT macro between DLZRDBLO and 
the Asynchronous Log Subtask. 



DLZRDBLO 
DLZRDBLO 



Routine 



ONLINT 
ONLLOGWI 



Label 



Extended Description 



The Asynchronous Log Subtask is 
waiting on this ECB and when it gets 
posted, DOS/VS will mark this sub- 
task as dispatchable. 

4. IWAIT will have the effect that the 
DL/I 'main task' will be put into wait. 
The Asynchronous Log Subtask can 
then be started by DOS/VS. 







DLZRDBLO - DB Logger CSECT 
Extended Description 



Note: This function is used 

• Open log records (ID X'2F') 

• Scheduling records (ID X'08') 

• Termination records (ID X'07') 

• Checkpoint records (ID X'41 ') 


DLZRDBLO 


LOGWR 



Extended Description 


Routine 


Label 
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Figure 2-16.5. Write Log Information (DLZRDBLO) 



Log I/O Area 


From 

Figure 2-16 
Step 5 


1 1 


'^: 
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Figure 2-16.6. Close Log File (DLZRDBLO) 



DLZRDBLO - DB Logger CSECT 



Extended Description 



^ 1. Issue PUT macro to write current 
contents of the log I/O area to the 
log tape or disk. 



2. Check for disk errors if disk logging. 
(See Figure 2-16.7) 




I I :► 



Figure 2-16 
Step 6 



1. Reset open bit in SCD. 



2. If tape logging, close tape 
DTF. 



3. If disk logging, close ACS 
and test for close errors. 



-^ 



4. If close errors, issue 
error message. 

5. Restore registers. 



(LOGOUT) 
ACB 



1 

i 



Routine Label 



Extended Description 



Routine Label 



DLZRDBLO - DB Logger CSECT 
Extended Description 



1. This function is used by 
DLZDBHOO, when log 
information associated 
with a data base update 
has not been written to 
tape at the time the data 
base update was being 
done. 


DLZRDBLO 


WRIAHEAC 



1. Either the tape or disk log file is 
closed in this subroutine. 

This subroutine is used by DLZODP, 
DLZRDBLO, DLZRRCOO, and 
DLZBNUCO. 

4. Message DLZ021I is issued. 


DLZIDBLO 


LOGCLOSE 
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Figure 2-16.7. Disk Errors (DLZRDBLO) 



RPL 


1 1- 


SCO 


1 1- 





From 

Figure 2-16 
Step? 


^ 








1. Perform close log file 


routine. 










¥^ 


Close Log File 
2-16.6 




: 


^ 2. If full extent, check if 
^ PAUSE is indicated. 




" 


3. If PAUSE is indicated, issue 
* message and wait for reply. 

4. If reply is 'cancel' issue 
message. 








5. If reply is 'go', open next file, 
continue. 






'n--1 








1 






6. If an I/O error occurs, issue 
message. 


(LOGACB) 






To 

DLZBNUCO 
ABEND 
Routine 
(Figure 2-4.2) 





DLZRDBLO - DB Logger CSECT 



Extended Description 


Routine 


Label 


1 . The log file is closed so that the 
operator could dump the tile 
(optional) before continuing. 


DLZIDBLO 


LOGCLOSE 


2. Checks to see if the user specified 
PAUSE on the DL/I control 
parameter. 


DLZRDBLO 


PUTERROR 


3. Message DLZ076A is issued. 






4. Message DLZ077I is issued. 






5. Message DLZ079I is issued. 






6. If the reply is 'GO', a check is made 
to determine if 1 or 2 disk files are 
being used for logging. If there are 2 
files, the second file is opened and 
control is returned to the PUT routine. 






Message DLZ004I is issued. 
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Figure 2-17. CICS/VS Journal Logger (DLZRDBLI) (Overview) 



Note: The four different functions 
of the logger are associated with 
four different entry points into it: 

• DLZIDBL0(Step2) 

• OPLOG (Step 3) 

• WRITE EXT (Step 4) 

• WR I AHEAD (Step 5) 

1. Initialize the logger. 

2. Build a log record and move it 

to the CICS/VS journaling buffer. 
(See Figure 2-17.1) 

3. Build open log record(s) and 
move to CICS/VS journaling buffer. 
(See Figure 2-17.2) 

4. Move a log record which has been 
built by another module to the 
CICS/VS journaling buffer. 

(See Figure 2-17.3) 

5. Write journal information physically 
to tape. 

(See Figure 2-17.4) 



DLZRDBLI - DB Logger with CICS Journaling CSECT. 

Extended Description Routine Label Extended Description 



Routine Label 
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1. Move all of the entry points 
to the logger into the SCD. 

2. 

3. 

4. 

5. 


DLZRDBLI 


DLZRDBLO 

DLZRDBLO 
OPLOG 
WRITEEXT 
WRIAHEAD 
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Figure 2-17.1. CICS/VS Build Log Record (DLZRDBL1) (Part 1 of 2) 



JJCBPRESF I 



From 

Figure 2-17 
Step 2 



1. Build the log record. 



> 2. Issue DFHJC TYPE=(WRITE,DL/I) 
to get the log record moved 
to the CICS/VS journal buffer. 

3. If physical I/O is not necessary, 
go to Step 10. 



V^ LOG WORK AR EA 



*< 4. Lock SYSTEM ECB. 



5. issue DFHJC TYPE=WRITE 
again. 

6. If no I/O error occurred, 
go to Step 8. 

7. Log I/O error — system 
ABEND. 



DLZBNUCO 
ABEND Routine 
2-4.2 



JSCDESECB I 



Figure 2-17.1. CICS/VS Build Log Record (DLZRDBL1) (Part 2 of 2) 

p INPUT ■■^■>^i^-^M>iai !■ PROCESS ■ 



JCT 



SCO 

|scDLocou[;;; 



^ 



8. Get the new number of the last 
written journal block from the 
JCT. 

9. Post the SYSTEM ECB. 

10. If the log request was not 
associated with a buffer, go 
to Step 12. 

1 1 . Store the block number of 
the last journal buffer written 
to tape into the buffer prefix. 

12. If the data to be logged did 
not fit into one log record, 
return to Step 1. 




SOD 

[SCDLOCoij] 



DLZRDBLl - DB Logger with CICS Journaling CSECT 
Extended Description Routine 



4. The SYSTEM ECB is locked in order 
to prevent any other task from entering 
the logger wWle the I/O is going on. 



DLZRDBLO 
lONECl 



Extended Description 



DLZRDBLl 

Routine 



DLZRDBLl - DB Logger with CICS Journaling CSECT 



Extended Description 



Routine Label 



Extended Description 



Routine Label 



8. The purpose for keeping the 
CICS/VS event control number 
is to enable DLZRBHOO to 
determine if a log buffer has 
to be written before an update 
is applied to a data base. 


DLZRDBLl 


GETECN 
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Figure 2-17.2. CICSA/S Move Log Record (DLZRDBL1) 



m INPUT I 







DDIR 
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DMB 






DMB 




DMBACBXT 
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Figure 2-17.3. CICSA/S IVIove Prebuilt Log Record (DLZRDBL1) 



Figure 2-17.3 
Step 3 






I : 



1. Locate the first DDIR entry. 

> 2. If the data base was not 
opened, go to Step 5. 

3. Build the open log record 
for the data base referenced 
by this DDIR entry, 

4. Move open log record to 
CICS/VS journaling buffer. 

5. If this is not the last 
DDIR entry, get the next 
DDIR entry and return to 
Step 2. 



5? 
I 



I 



o 

I 
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DLZRDBL1 - DB Logger with CICS Journaling CSECT 
ExtendedDescriptior^ Routine 



^ LOG WORK AREA 



LOG WORK AREA 


From 

Figure 2-17 
Step 4 


1 \zl 









1, Get the prebuilt log record 
and move it to the CICS/VS 
journal buffer. 



CICS/VS 
> JOURNAL BUFFER 



E 



I 



3. 

i 



DLZRDBL1 - DB Logger with CICS Journaling CSECT 



Note: Since the CICS/VS journal tape is 
not yet open at DL/I initialization, the 
open log record(s) are built and moved 
before the first scheduling call is logged. 

2. A data base might not have been 
opened because of the OPEN= 
DEFERRED option or because 
of an open error. 

4. See Figure 2-17.1 , Steps 4-9. 



Extended Description 



Routine 



Extended Description 



Routine Label 



Note: This function applies to 
scheduling and termination 
records built by the scheduling 
termination routine. 

1. See Figure 2-17.1, Steps 4-9. 


DLZRDBLl 


WRITEEXT 



Extended Description 
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Figure 2-17.4. CICS/VS Log Writing (DLZRDBLI) 



SCD 


Figure 2-17 


^ (See Note) 

> 1. Store the bloci<numt)er of 
the block that is going to be 
written in the JCA (Journal 




\ JCA 


JSCDLOCOU |_ 




SCD 




Control Block). ^ 


1 


Ijcaecn 1 

\ SCD 


JSCDESECB 1 


^> 2. LocktheSYSIbMbCB. 


CICS/VS ■■'■ ■' 

JOURNAL BUFFER 




> 3. Issue DFHJCTYPE=(WAIT,DL/I) 
to get current contents of 
C iCS/VS journal buffer written 




[SCDESECB 1 

•Q 

LOG TAPE 

>SCD 

ISCDLOCOU 1 

^SCD 

1 SCDESECB 1 


1 H 




JCT , 




tntape. 


> 4. Get the block number of the 
last written journal 
block from the JCT 




[jCTBLKNM 1 




SCD 




(Journal Control Table). 


1 : 


SCDESECB 


S 5. Post the SYSTEM ECB. 










1 

To 

Figure 2-1 7 



Figure 2-18. MPS Start Transaction (DLZMSTRO) 



DLZRDBLI — DB Logger with CICS Journaling CSECT 

Extended Description Routine Label 



Note: This function is used by DLZDBHOO 
when log information associated with a 
data base update was not written to tape 
when the data base update was being 
done. 

1 . Refer to note for Step 8 of 
Figure 2-17.1. 

2. Refer to note for Step 4 of 
Figure 2-17.1. 



Extended Description 



DLZRDBLI 

Routine Label 





CSA 




CSAOPFLA 1 


1 CSAOPFLAJp 


CSADL, 1 1 




DLIDLIAL l-l 






DLITTRM 




DLISTRM 




DLINUC 








DL/I Nucleus 
SCD 


1 SCDOBMPSI 




SCD 
Address 










TCA 




TCAKCRC 1 









4 

> 1. Check if DL/I nucleus loaded. 
' 2. Check if MPS already active. 

* 3. Attanh maiitpr partition 




■ OUTPUT 

CICS/VS 
? Dispatch Cha 




controller. ■ 




n 


^■■^ DFHKC TYPE=ATTACH 
\ F COND=YES 

TRANSID=SCDB 

4. Return. 

HIH^ DFHPCTYPE=RETURN 


CICS/VS 
DFHPCP 
























MPC 






' 


DLZMPCOO 









DLZMSTRO - MPS Start Transaction CSECT 
Extended Description 



1 . Module identifier (DLZMSTRO) is 
defined here. 

Write message DLZ097I if nucleus not 
loaded or not active and go to Step 4. 

2. Write message DLZIOII if flag 
SCDXECB indicates MPS XECBs 
already defined and go to Step 4. 

3. Write message DLZ083I if attach 
fails with a return code in TCAKCRC 
and go to Step 4. 



Extende^Descriptio 



DLZMSTRO 
Routine 
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Figure 2-19. Master Partition Controller (Overview) 



CICS/VS 
DFHPCP 



mm PROCESS ■ 



1. Initialize MPC task. 
(See Figure 2-19.1). 

2. Defined required XECBs for 
cross partition control. 
(See Figure 2-19.2) 

3. WAITM on Start Partition, Stop 
Partition, and Stop Transaction 
XECBs. 

(See Figure 2-19.3) 

4. If Start Partition XECB posted, 
attach BPC task. 

(See Figure 2-19.4) 

5. If Stop Partition XECB posted, 
process stop partition requests. 
(See Figure 2-19.5) 

6. If ABEND XECB posted, the BPC 
attach failed, process the ABEND 
condition. 

(See Figure 2-19.6) 

7. If Stop Transaction posted, 
terminate MPS. 

(See Figure 2-19.7) 

8. Terminate MPC task. 
(See Figure 2-19.8) 



9. MPC ABEND exit routine. 
(See Figure 2-19.9) 
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Extended Description 


Routine 


Label 


1. 




DLZMPCOO 






MPCSTART 


2. 




MPCDEFIN 


3. 




MPCWAIT 


4. 




MPCSTRP 


5. 




MPCSTOP 


6. 




MPCABNP 


7. 




MPCSTRN 


8. 




MPCEXIT 


9. 




MPCABEXT 



Extended Description 
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Figure 2-19.1. MPC Task Initialization (DLZMPCOO) 
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>. 1. Establish SCD addressability. 
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DLZNUCxx 
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icSAOLI IJ 


routines in PDCA. 
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PDCBPCAT 
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DLZTSQOO |l 
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Work Area 




each TSQ entry for MPS 
Restart. 

AjHv'^'^HB TYPE^GETQ 
^ ^ DATAID=DLZTSQOO 

4 Reinitialize each TSQ entry 










>! DLZTSQOO 




point ID. 

mg^ DFHTS TYPE=PUTQ 
^^^ DATAID=DLZTSQOO 

K 5. Get address of the MPC Partition -■ 
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> 7. Get Address of ABEND XECB 
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DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Extended Description 



1. Module identifier (DLZMPCOO) is 
defined here. 

MPC is attached by the MPS start 
transaction pTZMSTRO) -via CICSA^SL 
Ignore request if DL/I is not defined 
to CICS/VS or the nucleus is not 
loaded. 


DLZMPCOO 


DLZMPCOO 
MPCSTART 



5. The transaction work area is a logical 
extension of the TCA. 

9. This controls the number of partition 
table entries that will be initialized 
later. This is an equated value in the 
partition table DSECT (DLZMPCPT). 
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Figure 2-19.2. MPC Define XECBs (DLZMPCOO) (Part 1 of 2) 



Figure 2-19.2. MPC Define XECBs (DLZIVIPCOO) (Part 2 of 2) 





From 
Figure 2-19 
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R4 MPCPT 


1 1 Impcptln I 


R5 DLZXCBn3 
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1 1 PIDLIST 1 
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DLZXCBOO - 
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DLZXCB01 _ 
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!■ PROCESS ■ 



1. initialize Partition Table entries and 
assign first one for first batch 
partition to be started. 



^ ^ 2. Define stop transaction XECB. 



XECBTAB TYPE=DEFINE 
XECB=DLZXCB0O 
ACCESS=XPOST 



3. if error return on DEFINE: 

A. Issue message DLZ082I. 

B. Delete any XECBs defined. 

C. Go to Figure 2-19, Step 8, 
to terminate MCP. 

4. Define Stop Partition XECB. 



XECBTAB TYPE=DEFINE 
XECB=DLZXCB01 
ACCESS=XPOST 



5. If error return on DEFINE, 
go to step 3. 



DLZXCB02 MPCPT | 




MPCPIO 


MPCPT 

Entry 

Address 


MPCAXECB 


MPCSXECB 








Entry Work Area | 






|mpcecblt| 












, XECBTAB 
Entry 


Transaction 
Woric Area 


MPCECBLT 


1 1 




1 1 











INPUT i 



DLZXCB02 — 



r PROCESS ■ 



6. Define start partition XECB. 



i XECBTAB TYPE=DEFINE 
XECB=DLZXCB02 
ACCESS=XPOST 



7. If error return on DEFINE, go to 
Steps. 



8. Indicate MPS active. 



9. Set ABEND exit routine for 
Master Partition Controller. 



2 ^ 10. Establish special task dispatch 

status for MPC. 



1 1. Get number of partitions defined 
during system generation (SYSGEN) 
and adjust the partition 
identification table. 



v>|dcaiflgi 



XECBTAB 
Entry 



TCA 

^CAPCERA 
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DLZMPCOO - Master Partition Controller CSECT 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Extended Description 



Extended Description 



Extended Description 
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1 . The XECB identifier is an alphabetic 
character assigned by this routine. 
There is no relation between this 
identifier and any particular batch 
partition. The addresses of an 
ABEND XECB and the stop partition 
XECB are placed in each partition 
table entry even though no XECBs 
have been defined at this point. 

The currently defined values of 'n' 
are the alphabetic characters L-A. 

2. DLZXCBOO is the XECB name to stop 
the MPS transaction. 


DLZMACOO 


MPCDEFIN 



3. In all steps where a message is issued: 

• Rl is set up with the applicable 
message parameter list. 

• Control is passed to the MPC 
message vrater at MPCMSGRT. 

• BALR to the DL/I online message 
module, DLZERMSG. to write the 
message. 

4. DLZXCBOl is the XECB name to stop 
a partition. 




XECBDFNl 



6. DLZXCB02 is the XECB name to start 
a batch partition. 

8. Turn on SCDXECB at SCDDBMPS 
and issue message DLZ093I to indi- 
cate MPS started. 

9. MPCABEXT routine is within tills 
module (see Figure 2-19.9). 

10. Turn on tiie DCAAPURG fiag in tiie 
DCAFLGl byte of tiie DCA for tiiis 
task. When a CICS/VS task control 
will not count this task as part of 
AMXT nor will it take the short wait 
interval if this is the only waiting task 
in the CICS/VS system. 




XECBDFN2 



1 1 . Adjusts tiie partition identifier 
table to the form BG, Fn-1 , "'Fi 
where n is the number of VSE 
partitions defmed during SYSGEN. 
This is done so tiiat a printable 
partition identifier may later be 
computed from tiie PIK, which is 
passed from the batch partition on 
a start partition request. 
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Figure 2-19.3. MPC Wait (OLZMPCOO) 
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A (Stop Partition Rtn) 
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1. issue a wait on ECB list. 



2. Wiien control returns, scan the 
XECBs for one that is posted. 

3. Return to step 1 if no XECBs 
are posted. 

_J^ 4. Determine what action is to be 
taken for the first XECB found 
posted. 



"rEi 



1 



* DLZ . ■ ■ 
XECB 



DLZIWPCOO - IVIaster Partition Controller CSECT 



Extended Description 


Routine 


Label 


1. Note that the ABEND XECB 

(DLZXCBnS) pointer is placed in the 
ECB Ust only when the BPC attach 


DLZMPCOO 


MPCWAIT 


2. The XECBs are posted on the following 
conditions: 




MPCECBCK 


DLZXCB02 

• DLZMPIOO - activate BPC for 
a specific partition. 

DLZXCBOO 

• DLZMSTPO - terminate MPS. 






DLZXCBOl 

• DLZBPCOO - normal batch EOJ; 
error conditions in BPC or batch 
partitions. 

• DLZODPOl - ABEND. 






DLZXCBnS 

• DLZMPIOO - BPC attach failure. 






4. Before going to the appropriate 
routine, the post bit in the XECB 
is turned off. 




MPCECBOK 
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DLZMPCOO - Master Partition Controller CSECT 





Routine 


Label 


1 . This routine is entered from the MPC 
Wait Routine when a Start Partition 
XECB(DLZXCB02) is posted 
(XPOST) by DL/I MPS Batch Module 
(DLZMPIOO). 


DLZMPCOO 


MPCSTRP 


Register 7 contains the address of 
the XECB posted. 






3. The XECBTAB/CHECK macro is 
issued to obtain the address (in 
register 14) of Batch InitiaUzation's 
XECBTAB entry for the specific 
partition. 




XECBNICK 



Extended Description 
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^ ' XECB=DLZXCB02 
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MPCPT 
Entry 
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^■■k XECBTAB TYPE=CHECK 
'^ ' XECB=DUZXCBn1 

If error return on CHECK: 
B. Go to Step 18. 
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Imdcfreg i 1 
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^MPCPIDHX 1 
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identifier of the form BG, F1, etc. 
If MPS batch job was restarted: 
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TIDTB 
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DLZXCB1 


-- 




XCB1 FLAG |- 




DLZTSQOO 


A. Perform checkpoint ID — ' 


' j>l DLZTSQE 1 1 
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J — ip 


^^^L DFHTS TYPE=GETQ 
^■^ DATAID=DLZTSQOO 

B. If verification was successful, 
go to step 8. 

Assign a TSQ entry for MPS 
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DLZXCB1 






XCB1CPID j 




DLZTSQE 




TSQCPID j 






Restart. -t 
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MPCPT 
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^B^I^I^HTS TYPE^PUTQ 
^^^^ DATAID=DLZTSQOO 




XECBTAB 
k^ Entry 
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MPCPID 


MPCAXECB 
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Define ABEND XECB. 

^■^ XECBTAB TYPE=DEFINE 
^ r XECB=DLZXCBn3 
ACCESS=XWA1T 















5 . The PIK is in printable form. 

8 . DLZXCBnS is the XECB name for 
handling an ABEND situation for a 
specific partition. 




MPCCHKOK 
MPCGETPI 

MPCSTRPC 
XECBABN 



Figure 2-19.4. MPC Start Processing (DLZMPCOO) (Part 2 of 3) 






R15 




> 9. If error return on DEFINE: 
A. Issue message DLZ082I. 




^ OLZTSQOO 

1 1 


1 1- 


Transaction 
Work Area 






^m^^ DFHTS TYPE=PUTQ 
^■^^ DATAID=DLZTSQOO 

C. Notify MPS batch (DLZMPIOO) of 
DEFINE failure. 

D. If XPOST, successful, go to Step 18. 

E. Issue message DLZ084I. 

F. Go to Step 18. 




^ MPCPT Entry 

Impcflag 1 










> DLZXCB02 
JDLZXCBSP J 






S 11. Scan the Partition Table entries for 


MPCPT 




an inactive entry and make it available 
as the entry for the next batch partition 


1 1 




to start. -J 
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>TCA 

Itcakcfa j 








13. Attach Batch Partition Controller 
(DLZBPCOO).^ 

^IM DFHKC TYPE=ATTACH 
^ ' TRANSID=CSDC 
COND=YES 

' 14. If BPC attach is successful, go to Step 18. 




1 1 


TCA 




Itcakcrc "1 






> DLZXCBnl 


R14 




> 15. Notify MPS Batch (DLZMP 100) of -n 




(a (XECBTAB) 1 




BPC ATTACH failure. 

^■A XPOST XECB-DLZXCBnl 




1 XECB 1 


R1 


MPCPT 
Entry 


1 A(DLZXCBnl) | 


Impcflag | 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



11. If there are no inactive entries set 
DLZXCBSPtozero. 

14. A 'X3 1 ' in TCAKCRC indicates 
an ATTACH failure. 

15. The BPC ATTACH failed flag. 
MPCERR, is turned on. 




MPCPTLP 
MPCCKPT 
MPCBPCA 

MPCBPCFL 
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Extended Description 


Routine 


Label 









Figure 2-19.4. MPC Start Processing (DLZMPCOO) (Part 3 of 3) 
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MPCPT 




















1 DLZXCBSP 1 









16. if no error on XPOST: 

A. Move ABEND XECB address to 
tlie end of tlie CICS/VS WAITM 
ECB list. 

B. Go to Step 18. 



17. If error return on XPOST: 

A. Issue message DLZ0841. 

B. Delete ABEND XECB. 



C. Reinitialize TSQ entry for 
MPS Restart. 



D. Set partition table entry inactive 
and clear error indicator. 



If there is no partition table 
entry available for the next batch 
partition, make this one available. 



18. Return to MPC Wait routine. 
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DLZMPCOO - Master Partition Controller CSECT 



Figure 
2-19 
Step 3 



Extended Description 


Routine 


Label 


16.A The CICS/VS WAITM ECB list is 




MPCXPOST 


updated to include a pointer to the 






ABEND XECB pointer to provide 






recover. 






17.B If error return on DELETE, issue 




XECBDLN3 


message DLZ082I. 






D. The flags MPCPACT and 




MPCABDOK 


MPCERR are turned off. 






E. If DLZXCBSP is zero, there is no 






inactive entry other than the 






one just made inactive. 
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Figure 2-19.5. MPC Stop Partition Processing (DLZMPCOO) (Part 1 of 2) 
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MPCFLAG 



From 

Figure 2-19 
Step 5 



> 1. Purge TSQ, if requested. 



j^ 2. Scan MPCPT for an entry with stop 

partition request. At end of MPCPT, 
go to Step 9. 



3. If "wait for ABEND" switcli is on, 
put ABEND XECB on CICS WAITM 
ECB list. Go to Step 2. 

4. Reinitialize TSQ entry, if needed. 



5. Set partition inactive and clear stop 
partition request. 



. Delete ABEND XECB. 



, _ 2 ► 7. If stop transaction (MPS) requested 
also, continue; otherwise, return to 
Step 2 to check next MPCPT entry. 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 
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MPCPT 
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Impcflag 
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1 . This routine is entered from the MPC 
wait routine when a stop partition 
XECB (DLZXCBOI) is posted by DL/I 
MPS Batch Partition Controller 
(DLZBPCOO) or Task Termination 
(DLZODPOl) or Purge Temporary 
Storage Transaction (DLZMPURO). 

2. A scan is done on every entry in the 
partition table to avoid losing a stop 
partition request on a double post. 

3. Hag MPCABWT in MPCFLAG 
indicates that the ABEND XECB 
(DLZXCBnS) should be waited on. 

6. If error return on DELETE, issue 
message DLZ082L 




MPCSTOP 
XECBDELA 
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Label 









Figure 2-19.5. MPC Stof 
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available for the next starting batch 
partition, make this entry available 
and return to Step 2 to check the 
next MPCPT entry. 




MPCPT 










Entry 

Impcflag 


-| , ^ 9. If stop transaction (MPS) has not 

-J 1 1 been requested, go to Step 12. 

1 1 
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L « ; ^ 10. If alt of the partitions are inactive, 

go to Figure 2-19, Step 8 to terminate 




MPCPT 
















s, 1 1 • if an active partition is found: 
















A Check if XECB for batch 








partition is still defined. 










xecbtab type=check 

XECB=DLZXCBn1 




R15 
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^ B. If batch partition is still active. 




}-, 












go to Step 12. 
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C Set cancel BPC indicator in 








MPCPT. 




1 c 












POST bit. 
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12. Return to MPC Wait routine. 
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Figure 2-19 
Step 3 



DLZMPCOO — Master Partition Controller DSECT 
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Extended Description 


Routine 


Label 


10. Rag MPCPACT in MPCFLAG indi- 
cates whetherthe partition is active 
or inactive. 




MPCCKACT 


11 . A partition is active if MPCPACT is 
on. 




MPCCKN 


A. The XECBTAB/CHECK macro 
is issued to determine if the batch 
partition is still defined. 




XECBTCH 


C. Bit MPCCNBPC in field 
MPCFLAGl in the MPCPT is 
set on. 






D. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBnS). 
The XPOST macro is not needed 
to turn on the POST bit because 
the ABEND XECB is defined by 
MPC. 
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Figure 2-19.6. MPC ABEND Processing (DLZMPCOO) 



From 

Figure 2-19 
Step 6 



' > 1. Locate MPC Partition Table entry to 

which this ABEND XECB belongs. 



2. Remove ABEND XECB pointer from 
CICS/VS WAITM ECB list. 



]_ 



3. If "Wait for ABEND" flag is on in the 
partition table entry, then: 



A. Set "Wait for ABEND" flag off. 



B. Post the stop partition XECB 
(DLZXCB01). 




C. Go to Step 7. 



> 4. Delete ABEND XECB. 



5. Reinitialize TSQ entry for MPS Restart. 



6. Set partition inactive and clear error 
indicator. 

7. If there is no partition table entry 
available for the next batch partition 
to use, make this partition table entry 
available. 

8. Return to MPC Wait routine. 



>■ MPCECBLT 


1 1 


DLZTSQOO 


1 1 


MPCPT 
Entry 

1 MPCFLAG 1 
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DLZMPCOO - Master Partition Controller CSECT 





Routine 


Label 


1. This routine is entered from the MPC 
Wait routine when an ABEND XECB 
(DLZXCBnS) is posted (XPOST) by 
DL/I MPS Batch InitiaUzation Module 
(DLZMPIOO) on a BPC ATTACH 
Failure. 




MPCABNP 


Register 7 contains the address of the 
XECB posted. 






3. Flag MPCABWT is the 'Vait for 
ABEND" flag. 






4. If error return on DELETE, issue 
message DLZ082I. 




XECBDEL3 


6. Flags MPCPACT and MPCERR are 
turned off. 
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Figure 2-19.7. MPS Termination (DLZMPCOO) (Part 1 of 2) 
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Figure 2-19.7. MPS Termination (DLZMPCOO) (Part 2 of 2) 
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' ► 2. Delete stop transaction (MPS) XECB. 



1. Delete Start Partition XECB. 



3. Set stop transaction (MPS) request 
In MPCPT entries. 



MPCPT Entry 

Impcflag 



MPCFLAG rh 



|mpcpid \ 



— » 4. Scan MPCPT entries for an active 

partition. Go to Step 6 if no 
active partition Is found. 

5. If an active partition is found: 



A. Check if XECB for batch partition 
still defined. 



B. If batch partition still active, 
go to Step 9F. 



C. Set cancel BPC indicator in MPCPT. 



D. Turn on BPC ABEND XECB 
POST bit. 



E. Go to Step 9G. 

F. Issue message DLZO861. 

G. Return to MPC Wait routine 

6. Go to MPC Termination. 
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DLZMPCOO — Master Partition Controller CSECT 



Extended Description 



Extended Description 



1. This routine is entered from the MPC 
Wait routine when the Stop Transaction 
(MPS) XECB (DLZXCBOO) is posted 
by DL/I Stop Transaction Task 
(DLZMSTPO). 

If error return on DELETE, issue 
message DLZ082I. 

2. If error return on DELETE, issue 
message DLZ082I. 

3. Flag MPCTSTP is turned on. 




MPCSTRN 

MPCSTRN2 
MPCSXCK 




Extended Description 


Routine 


Label 


4. A partition is active if MPCPACT is on. 

5. A. The XECBTAB/CHECK macro is 

is issued to determine if the batch 
partition is still defined. 

C. Bit MPCCNBPC in field MPCFLAG 1 
in the MPCPT is set on. 

D. R6 contains pointer to the BPC 
ABEND XECB (DLZXCBnS). The 
XPOST macro is not needed to turn 
on the POST bit because the 
ABEND XECB is defined by MPC. 




MPCDELCP 
MPCSXEND 

XECBATCH 



Extended Description 
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Figure 2-19.8. MPC Stop Transaction Processing (DLZMPCOO) 
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^ 1. Delete Stop Partition XECB. 
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3. issue message DLZ094i. 

4. Return to CiCSA/S. 
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DLZMPCOO - Master Partition Controller CSECT 
^Extended Description Routine Label 



Extended Description 



1 . This routine is entered when MPS is 
to be terminated normally or 
abnormally. 

If error return on DELETE, issue 
message DLZ082I. 

2. Flag SCDXECB at SCDDBMPS is 
turned off and message DLZ094I 
is issued to indicate MPS stopped. 

4. 




MPCEXIT 
CICSRTN 
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Figure 2-19.9. MPC ABEND Exit Routine (DLZMPCOO) (Part 1 of 2) 
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^ 2. Delete Start Partition XECB. 

^H^ XECBTAB TYPE--DELETE 
1 V XECB=DLZXCB02 

> 3. Delete Stop Transaction (MPS) and 

Stop Partition XECBSs. 

^■^ XECBTAB TYPE=DELETE 

^ ' XECB=DLZXCBOO 

^■^ XECBTAB TYPE-DELETE 
^ r XECB=DLZXCB01 

> 4. For each MPCPT entry: 

A. Locate this partition's BPC XECB 




1 SCDDBMPS 1 

* R1 


1 ll 




DLZXCBOO DLZXCB01 


1 II 1 








MPCPT 
Entry 






,»PCP,P (^ 






Xn^ XECBTAB TYPE^CHECK 
"« r XECB=DLZXCBn2 




1 1 




- 


> DLZXCBn2 


R1 




^"""^-^ ^ DLZXCBn2 


► B. if DLZXCBnZ exists, then turn ;~ 




on the BPC XECB post bit. 
C. Delete ABEND XECB. 

^■■4 XECBTAB TYPE=DELETE 

^ ' XECB=DLZXCBn3 

5. Return to Step 4 to get next MPCPT 
entry. At end of entries, continue to 
next step. 




1 xecB 1 


1 XECB I 







Figure 2-19.9. MPC ABEND Exit Routine (DLZMPCOO) (Part 2 of 2) 
P INPUT I m PROCESS ^i-ia— ^a— i« 



> 6. Set information for message 
DLZ104I and issue it 



7. Return to CICSA/S. 



^ 



\ 
I 
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DLZViPCOO - Master Partition Controller CSECT 

Extended Description Routine Label 



Extended Description 



1. Ihis routine is entered from CICS/VS 
if an ABEND occurs in MPC. linkage 
was established through DFHPC 
TYPE=SETXIT in Figure 2-19.2. 

Flag SCDXECB at SCDDBMPS is 
turned off to show MIPS as inactive. 

4B. Note that the XPOST macro is not 
needed to turn on the POST bit 
because BPC XECB (DLZXCBn2) is 
defined in the same partition as this 
module. DLZXCBn2 is defined by 
DLZBPCOO. 




V4PCABEXT 




DLZMPCOO - Marter Partition Controller CSECT 



Extended Description 



Extended Description 



6. 

7. DMPC ABEND code defines MPC 
failure for CICS/VS dump ID. 




MSG104 
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Figure 2-19.10. BPC Normal 
m INPUT ■— — - 



Termination Cleanup Routine (DLZMPCOO) 
■■ PROCESS — — 1^— 



Figure 2-19.11. BPC Abnormal Termination Cleanup Routine (DLZMPCOO) 



[TV 



TWAMPSFG 



1. Save caller's registers and establish 
addressability. 

2. Get address of partition table entry 
for this BPC. 

3. Set stop partition flag in partition 
table entry. 

> 4. Post stop partition XECB. 



5. If DLZMPiOO is not waiting for 
termination to complete, go to 
Step 6. Otherwise: 

A. Post DLZXCBnl XECB. 



B. if error on XPOST, issue 
message DLZ084I. 



6. Restore caller's registers. 

7. Return to caller. 



> I mpcflag""] 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 



Routine Label 



Extended Description 



1 . This routine is entered from DLZODP 
when BPC normal termination occurs. 

3. Flag MPCPSTP indicates stop 
partition. 

5. Flag TWAEOJSW indicates that 
DLZMPIOO is waiting for termination 
processing to complete. 




MPCBPCNT 






Caller 

1, 






R13 


H 


> 1 . Save caller's registers and establish 
addressability. 




1 d 












TWA 




2. Get address of partition table entry 








^ for this BPC 








3. Set stop partition flag in partition 
















4. If batch XECB does not exist, 
go to Step 7. 








WtK^ XECBTAB TYPE=CHECK 








5. Set "wait for ABEND" and error 




flags in partition table entry. :ZZ 








6. Post batch processor. 








km^ XPOST XECB=(1) 
^^^ POINTR6=(14) 








7. If BPC XECB does not exist, go to 
Step 10. 








^■I^k XECBTAB TYPE^CHECK 
^^^r XECB=DLZXCBN2 








8. Delete BPC XECB. 




MPCPT Entry 




^■1^ XECBTAB TYPE=DELETE 
* W XECB=DLZXCBN2 




( MPCFLAG1 j— 
DL2TSQ00 


i> 9. If MPS Restart is in effect for this 

'1 task: 




I l=n 




> A. liet cnecKpoint lu rrom i su. — ■ 






fl|||4 DFHTSTYPE=GETQ 

^ ^ DATAID=DLZTSQOO 








B. Issue message DLZ127i. 








10. Restore callers registers. 








11. Return to Caller. 


Caller 



DLZMPCOO - Master Partition Controller CSECT 



Extended Description 


Routine 


Label 


1 . This routine is entered from DLZODP 
when BPC abnormal termination 




MPCBPCAT 


occurs. 






3. Flag MPCPSTP indicates stop 
partition. 






5. Hag MPCABWT indicates wait on 
ABEND XECB and flag MPCERR 
is the enor flag. 






10. 




MPCBPCA2 



Extended Description 



: 



|mpcflag ~\ 
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Figure 2-19.12. MPS Abnormal System Termination Cleanup Routine (DLZMPCOO) 



^ 1 . Save caller's registers and establish 
addressability. 






2. Delete the start partition XECB. 






^^^ XECBTABTYPE^DELETE 
^■■t XECB=DLZXCB02 






3. Delete the stop partition XECB. 






Mma^ XECBTAB TYPE=DELETE 
^^^ XECB=DUZXCB01 






4. Delete the stop transaction XECB. 






^^■4 XECBTAB TYPE^DELETE 
^^^ XECB=DLZXCB0O 






5. For each partition table entry: 






A. Delete BPC XECB 






^^■^ XECBTAB TYPE^DELETE 
^^^Y XECB=DLZXCBN2 






B. Delete ABEND XECB 






^■^ XECBTAB TYPE=DELETE 
^^^f XECB=DLZXCBN3 






C. If batch XECB does not exist, 
go to Step 6. 




R14 

k 1 








* 


D. Post batch processor. 

^■^ XPOSTXECBH1) 
^^^^ POINTR6=(14) 






6. Restore caller's registers. 


^ 




7. Return to caller. 


Caller 





DLZMPCOO - Master Partition Controller 



Extended Description 



Extended Description 
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1 . This routine is entered from DLZODP 
terminates. 




MPCSYSTM 
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Figure 2-20. Batch Partition Controller (Overview) 



From 

CICS/VS 

DFHPCP 



1. Initialize BPC task. 
(See Figure 2-20.1) 

2. Issue online DL/I scheduling call 
on behalf of the batch partition. 
(See Figure 2-20.2) 

3. Wait on BPC and ABEND XECBs. 
(See Figure 2-20.3) 

4. If BPC XECB posted, process 
batch request. 

(See Figure 2-20.4) 

5. If ABEND XECB posted, terminate 
BPC. 

(See Figure 2-20.5) 



6. BPC abend exit routine. 
(See Figure 2-20.6) 



Extended Description 


Routine 


Label 


1. 


DLZBPCOO 


DLZBPCOO 
BPCSTART 


2. 




BPCSCHCK 


3. 




BPCWAIT 


4. 




BPCCALL 


5. 




BPCEXIT 


6. 




BPCABND 



Extended Description 
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Figure 2-20.1. BPC Task Initialization (DLZBPCOO) (Part 1 of 2) 

r» INPUT ammmmmmm^^^m^ ^ PROCESS ■ 

From 

Figure 2-20 
Stepi 



CSAOPFLA I 
CSAOPFU 



i TCAFCAAAI 



SCDMPCPT I 



MPCPT 



Impcpidhx I 



|twabpcid~| 




\> 2. Save the XECB ID. 



I— J 



1 . Set MPCPT address and the specific MPCPT 
entry the BPC was attached for in the 
transaction work area. Save SCD address. 



^ 3. Save the partition ID. 



4. Locate the MPS batch XECB. 

mgg^ XECBTA 
1 r XE 

> 5. If error return on CHECK: 

A. Issue message DLZ082I. 

B. Set abnormal termination condition. 

C. Go to Figure 2-20.5, Step 3, to 
terminate BPC. 



TWA 


TWABPC 




1' TWAMPCPT 




TWAMPCE 


TWABPSCD 






TWA 




^|twabpcid 1 




TWA 

> Itwampsid I 








R1 RM j 1 


DLZXCBnl 
Address 


xecbtab 

Entry 
Address 











DLZBPCOO - Batch Partitiori Controller CSECT 



Extended Description 



Extended Description 



Routine Label 



1 . Module identifier (DLZBPCOO vmp) 
is defined here. 

The Batch Partition Controller 
(BPC) is attached by DLZMPCOO 
when a start request has been made 
by a partition. 

On entry, R12 contains address of 
TCA and R13 contains address of 
CSA. 

DLZXCBnl = XECB name for MPS 
batch partition, where n is the 
partition ID, which is assumed by 
DLZMPCOO. 

DLZXCBn2 = XECB name for a 
BPC for a specific partition. 

DLZXCBnS = XECB name for 
handling an abend condition for a 
specific partition. 

4. XECBTAB TYPE=CHECK macro is 
used to obtain the address of MPS 
batch XECB. 


DLZBPCOO 


DLZBPCOO 
BPCSTART 

XECBCHK 



Figure 2-20.1. BPC Task Initialization (DLZBPCOO) (Part 2 of 2) 
am INPUT ■^^-■^■■i^HiBa ■■ PROCESS ai^-^i— a— 



TWAXCBN2 



(twamsg "] |twabpcsv~| 



MPCPT Entry 

I mpcaxecbI 



MPCPT 
JMPCAXECB { 



Z^> 



6. Save DLZXCBnl XECB name and 
XECBTAB entry pointer. 



7. Set BPCs CICS/VS WAITM ECB list 
with BPCs (DLZXCBn2) XECB address 
and the delimiter. 



8. Define BPC XECB. 

^mm XECBTAB TYPE=DEFINE 
^^^T XECB=DLZXCBn2 

ACCESS=XWAIT 

9. If error return on DEFINE: 

A. Issue message DLZ082I. 

B. Set error indicator. 

C. Notify batch partition of the error 
condition. 

^B|B XPOST XECB-DLZXCBnl 

D. Wait on ABEND XECB. 



^H^A DFHKCTYPE^WAIT 

E. When control returns, clear ABEND 
XECB. 

F. Set abnormal termination condition. 

G. Go to Figure 2-20.5, Step 3 to 
terminate BPC. 

10. Set BPCs CICS/VS WAITM ECB list 
with ABEND XECB address. 

1 1. Set abend exit routine for Batch 
Partition Controller. 



> 12. Initialize TSQ entry buffer for 
MPS Restart. 



13. Continue processing. 



r OUTPUT - 

TWA 



DLZBPCOO - Batch Partition Controller CSECT 



TWAWLIST 




TWAXCB2 






TWAXCBDL 







TWAWLIST 




TWAXCB2 




TWAXCB3 


TWAXCBDL 







i 
I 

I 
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Extended Description 



Extended Descripti 



8. BPC XECB (DLZXCBn2) is defined 
for cross partition communicatioi^ 
with MPS Batch Initialization 
(DLZMINIT), MPS Batch Program 
Request Handler (DLZMPRH), and 
(DLZMTERM). 

9. B.. Flag MPCERR indicates an 

error condition. 

E. The POST bit X'80' in the 
XECB is turned off 

11 . The BPCABND routine (see 
Figure 2-20.6) is within this 
module. 




XECBDFN 
BPCDFERR 
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Figure 2-20.2. Issue Online DL/I Scheduling Call (DLZBPCOO) (Part 1 of 2) 






TWASCHDC 1 



TWASCHDC 



TWAPARMC 



d 



Figure 2-20 
Step 2 



^ 1. Get parameter count, function call, 

and PSB name for DL/I call parameter 
list. 



2. Issue DL/I scheduling call. 



3. If ABEND XECB is posted: 

A. Set abnormal termination 
condition. 

B. Clear the POST flag of ABEND 
XECB. 

C. Go to Figure 2-20, Step 5, 
to terminate BPC. 

> 4. If error return on scheduling 
' call, set error indicators and 

error codes. 



TWA 
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TWASCHDC 




TWAPARMC 


TWACALL 


TWAPSBN 
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MPCPT 






MPCFLAG 




MPCRC1 


MPCRC2 









Figure 2-20.2. Issue Online DL/I Scheduling Call (DLZBPCOO) (Part 2 of 2) 

f* INPUT a«i— — ^^— 



tTWAXCBNil TWAN1PTR 



jtTWAMSG I |t TWABPCSv] 



► 5. Save the TCA address for MPS 

Batch (DLZMPIOO). 

> 6. Notify Batch Partition that 


n 




> MPCPT 
r Entry 

j MPCTCA j 










DL/I scheduling call has been 
completed. 






^ DLZXCBnl 
1 XECB 1 








^■■^ XPOST XECB=DLZXCBn1 








> 7. If error return on XPOST: 








y A. Issue message DLZ084I. 








B. Go to Figure 2-20, Step 5, 








to terminate BPC. 


■^ 




8. Continue processing. 




"1 

Figure 2-20 
Step 3 





DLZBPCOO — Batch Partition Controller CSECT 
Extended Description 



1. Macro DLZXCBl defines a DSECT 
that represents the format of the 
fields after the MPS Batch XECB 
(DLZXCBnl) used here as a 
parameter Hst by BPC. 

Addressabihty to DLZXCBnl was 
obtained by the XECBTAB 
TYPE=CHECK macro in Figure 
2-20.1, Step 5. 

4. Flag MPCERR at MPCFLAG is turned 
on. 




BPCSCHCK 




DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine Label 



6. 




BPCSCHDK 





Routine 


Label 
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Figure 2-20.3 


Wait on BPC and ABEND XECBs (DLZBPCOO) 








rwA 


From 

Figure 2-20 
Step 3 


4 

> 1. Issue WAITM on BPC and ABEND 

XECB ' 










TWAWLIST 












T 




■frCATCEA i 




MHJI^ DFHKC TYPE=WAIT 

> 2. When control returns, check if 

MPS still active. If not active, 
exit to Figure 2-20.6, Step 3. 

> 3. If BPC XECB posted, exit to 

Figure 2-20, Step 4. m 

^ 4. If ABEND XECB posted: 

A. Set abnormal termination 
condition. 


^^. 


'WA 






TWAWLIST 








CSA 
JCSAOPFLA 1 

SCD 


TWAXCB2 


TWAXCB3 


TWAXCBDL 






ISCDDBMPS 1 






TWA 

Itwabpsco 1 


^ DLZXCBn3 






DLZXCBn2 - 




|XECB 1 
DLZXCBn3 ■ 






IXECB 1 








B. Clear post bit in XhCB. 


C. Go to Figure 2-20, Step 5 to 
5. Return to Step 1. 


* 


IxECB 1 













DLZBPCOO - Batch Partition Controller CSECT 
Extended Description 



1 . The XECBs are posted for the 
following conditions: 

DLZXCBn2 

• Process call on behalf of batch 
partition. 

• EOJ has been encountered in batch 
partition. 

DLZXCBnS 

• An ABEND condition has been 
encountered in the batch 
partition. 

2. Flag SCDXECB is tested in 
SCDDBMPS. 




BPCWAIT 



Extende^Descrigtjoi^ 



DLZBPCOO 

RSUSim 



to 

I 






Figure 2-20.4. 
■I INPUT M-ia 



1 Request Processing (DLZBPCOO) (Part 1 of 2) 
■■ PROCESS — — 



Figure 2-20.4. Batch Request Processing (DLZBPCOO) (Part 2 of 2) 



|tcadlii "1 



JTCADLIPA I IpSTPREAD | 



XCB1 

j xcbiflag"] - 



I XCB1FLAG 
DLZXCB1 



JXCBIHLPI 



Figure 2-20 
Step 4 



> 



1. Clear POST bit in BPC XECB. 



2. If a PST is not available go 
to Step 6. 



► 3. Indicate MPS task. 



4. If batch partition at EOJ go 
to Step 11. 



Itwai 



^ 9. Save registers. 



5. If combined checkpoint call 
for MPS Restart: 

A. Move new checkpoint ID 
to TSQ entry buffer. 

B. Update TSQ entry. 



6. Get address of call parameter 
list. 

7. If not HLPI, go to Step 12. 

8. Set return from call to Step 13. 



> 10. Get address of program request 
handler (DLZPRHOO). 



11. Go to program request handler. 
> 12. Issue DL/I Call. 



TWAXCBN2 I 






R1 R14 

I TWAXCBNl") |tWAN1PTR~ 



13. Notify batch partition that the 
DL/i call has been completed. 

^■■I^XPOST XECB=DLZXCBn1 



14. If error return on XPOST: 
A. Issue message D LZ084I . 



B. Go to Figure 2-20, Step 5 to 
terminate BPC. 



15. Return to Figure 2-20, Step 3 
for BPC WAIT. 



16. Notify MPS Batch Partition that 
EOJ processing has completed. 



'S DLZXCBnl 
IXECB I 



^ DLZXCBnl 
IXECB I 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Routine Label 



DLZBPCOO - Batch Partition Controller CSECT 



Extended Description 



Extended Description 



1 . This routine is entered from BPC 
WAIT routine when the BPC XECB 
(DLZXCBn2) is posted by the batch 
program request handler. 

RIO points to the call parameter list 
in the MPS Batch partition. 

2. Flag TCADLIPS indicates a PST is 
available. 

3. Flag PPSTMPS in PPSTIND indicates 
this is an MPS task. 







4. Macro DLZXCBl defines a DSECT 
representing the format of the MPS 
batch XECB and following fields 
used for communication between the 
batch and onUne partitions. 

The End-of-Job flag is set by 
DLZMPIOO termination routine in 
the field foUowing the XECB. 

11. 

12. Entry point in the language interface 
module will be ASMTDU or 
PLITDLI, depending on whether the 
user program is assembler or PL/I. 




BPCNOPST 
BPCDLICD 



16. 




BPCEOJ 



Extended Description 



Routine Label 
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Figure 2-20.5. BPC Termination (DLZBPCOO) (Part 1 of 2) 
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Figure 2-20.5. BPC Termination (DLZBPCOO) (Part 2 of 2) 



I TWAMSG I [tWABPCSV I 



E 



-J> 1. Delete BPC XECB. 



2. If error return on DELETE: 

A. Issue message DLZ082I. 

B. Set abnormal termination condition. 



-t^ 3. if BPC cancel indicator is not set, go t 
Step 6. 

4. Reset cancel BPC indicator. 

5. Go to Step 8. 



^^ 6. If error on DLZXCBn2, XECB DEFINE 
or on scheduling call: 



A. Set Stop Partition indicator in 
MPCPT. 



B. Locate Stop Partition 
XECB. 



0°" 

I >> D. Ti 

J 1 1 



error on checl<, go to Step 7. 



I. Turn on Stop Partition XECB post 
bit. 



DLZBPCOO - Batch Partition Controller CSECT 

Extended Description Routine 



1 . This routine is entered on normal 
or abnormal termination of BPC. 

3. BitMPCCNBPCissetbyMPC 
when it determines that the batch 
partition no longer is active. 

6. Flag MPCERR indicates an 
error condition. 

A. Flag MPt'PS IP indicates 
stop partition. 

B. Address of XECB is 
returned in Rl. 




BPCEXIT 
BPCEXIT2 



Extended Description 



ImpccnbpcJ 



> I MPCFLAG I 





DLZBPCOO - Batch Partition Controller CSECT 

Extended Description Routine Label 



^ 7. Issue message DLZ103I. 






^ 8. If MPC abnormally terminated, 
go to Step 12. 






9. If abornal termination go to 
Step 12 










PLZTSOOO 
? 1 






Restart. 




A^m^ DFHTS TYPE=PUTQ 
^^^T DATAID=DLZTSQOO 






11. Return to CICS/VS. | 


^ 




■■jA DFHPC TYPE=RETURN 


To 

CICS/VS 

DFHPCP 








V TWA 
1 TWAMPSFG 1 






completed indicator. 




13. Return to CICSA/S - ABEND. 






■^■A DFHPC TYPE=ABEND 
^^^W ABCODE=DBPC 

CANCEL=YES | 


1 

To 

CICSA/S 

DFHPCP 





E 



3 

s, 

i 



Extended Description 



8. RagSCDXECBatSCDDBMPS 
indicates if MPS is active or not. 

12. Hag TWABPCOK indicates BPC 
ABEND processing was successful. 

13. DBrc ABEND code defines BPC 
failure for CICS/VS dump ID. 




BPCABEND 
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Figure 2-20.6. BPC ABEND Exit Routine (DLZBPCOO) 




■■ PROCESS > 



> 1. Initialize message DLZ104I 
and issue it. 



> 2. Get this task's MPCPT entry. 



^ 3. Delete this task's BPC XECB. 



■I- ^ 4. XPOST the MPS Batch XECB. Z 

#■■• XPOST XECB^DLZXCBnl 

5. Go terminate BPC abnormally. 



J> R8 



I 1 



I 1 



DLZBPCOO - Batch Partition Controller CSECT 





Routine 


Ubel 


1. This routine is entered from CICS/VS 
if an abend occurs in the Batch 
Partition Controller Module 
(DLZBPCOO). 

3. 




BPCABND 
MPC ABEND 
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Figure 2-21. MPS Batch (Overview) 

■■ INPUT MMaiHMBMaB 



IP PROCESS > 



From 

Application 

Program 



1. MPS Batch Initialization. 
(See Figure 2-21.1) 



2. MPS Batch Termination. 
(See Figure 2-21.2) 



3. MPS Batch Program Request 
Handler. 
(See Figure 2-21.3) 



4. MPS Batch Message Writer. 
(See Figure 2-21.4) 

5. MPS Batch ABEND Handler. 
(See Figure 2-21.5) 




i 





Routine 


Label 




DLZMPIOO 


DLZMINIT 






DLZMTEi»( 






DLZMPRH 






DLZMMSG 






DLZMABND 



Extended Description 
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Figure 2-21.1. MPS Batch Initialization (DLZMPIOO) (Part 1 of 4) 



Figure 2-21.1. MPS Batch Initialization (DLZMPIOO) (Part 2 of 4) 





From 

Figure 2-21 
Stepi 


S 1 . Read parameter statement and check for 




-OUTPUT^— 


1 


COMRG 




1 




p-SYSLOG 1 






UPSI 








or 




J SYSLST^ 
lOAREA 




validitY- 






( SYSIPT j 


AlHi^ COMRG Macro 
^■■^ OPEN Macro 
^mi^ GET Macro 
^m^ PUT Macro 

> 2. If data is valid go to Step 5. 

> 3. If data is invalid, let operator reenter 








lOAREA 


1 1 








1 OLI.progname, psbname 1 


> lOAREA 1 




parameters. 


4iHB PUT Macro 
4|mik GET Macro 

> 4. Return to Step 1 to recheck data or cancel. 

^■ill^ CANCEL Macro 




1 1 














lOAREA 




1 CANCEL j 


or 


IDLI 1 








1 PROGNAME PSBNAME | 


lOAREA 






1 uJll II III 


j DLI^rognamejasbname | 








1 1 




? USERPROG 


PROGNAME 


DOS/VS 


1 




S 7. Load Application program. "^ 


~j 






m/g^ LOAD TXT=NO Macro 
^m^ LOAD Macro 




1 1 




Core Image j 
Library | 











DLZMPIOO - MPS Batch CSECT 



'^Extended Description 




Label 


1. If UPSI byte bit is on, input is from 
SYSLOG. Send message DLZOIOA to 
have operator enter information. 


DLZMPIOO 


DLZMINIT 
CHECKIN 


If UPSI byte bit is off, input is from 
SYSIPT. 






Write message DLZ014A if end of file 
on SYSIPT. 






3. Write message DLZ087A if data 
invalid. 




PARMERR 


4. Read operator reply to decide if more 
parameters provided or if job cancelled. 




GETC0NS3 


5. 




CHECKOK 


7. If program not found, write message 
DLZ012I and cancel job. 




LOADAP 
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Extended Description 
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INPUT mm 


f 


COMREG 




» 


- OUTPUT ■— 

DLZXCB01 




' 


PIK P 




save for online to use in message. 

^ 9. If MPS Restart requested, create 
JDBID for TSQ entry in online 
partition. 

•■■^GETIME Macro 

10. Go to Step 12. 




XCB1PPIK 




DLZXCB1 

1 XCB1FLAG j- 

COMREG 




FLAG2 




1 FLLOCK 








R1 R14 11 


DLZXCB02 
addr«$s 


f„i^»rJ 


II 


DLZXCB1 
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Figure 2-21 .3 






: 


1 UPSISAVE j 




' S ' 1 Pprfnrnn rpstart initiali^^tinn 


1 SYSIPT 1 


: 


^■III^OPEN Macro 
^mi^GET Macro 

^12. Set lock. 

^ 13. Check if MPS is active. 

ma^ XECBTAB TYPE^CHECK 
1 f XECB=DLZXCB02 






DLT 


h 


L 


^ame=DLZMPSO 
DLZXCB02 


1 


1 




DLZXCB02 


j> MPCPT 
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» DLZXCBN3 










name for ail that have N in name. 
15. Define MPS Batch XECB for this 




DLZXCBN2 


t MPCPT 
1 Entry 


MPCID 


DLZXCBN1 


















1 




•1^ 


R14 






1 

DLZXCBnl 


'^^^ XECB=DLZXCBn1 
ACCESS=XWAIT 






XECB 


PSBNAME Address 


PROGNAME Address 


Partition PIK 


Etc. 














_ 


1 



DLZMPIOO 

Routine 



12. This prevents another MPS batch task 
from starting or stopping while this one 
is initializing. The value for N in Step 
10 is updated during this process and 
must complete before another batch 
task can use it. 

FLLOCK in FLAG2 indicates lock is 
set if 1, is not set if 0. 

13. If the MPC XECB (DLZXCB02) is not 
found, write message DLZ089I. If there 
is no ID available in the partition table, 
write message DLZ088I. Both messages 
are followed by cancel. 







15. Write message DLZ082I if DEFINE 
is not successful. 

FoUowing MPS batch XECB (DLZXCB 
(DLZXCBnl) are parameter fields used 
in communicating with the online 
partition. Macro DLZXCBl contains the 
DSECT which describes this XECB and 
following fields. 




XECBDEFl 



s, 

p 



C 






c 



'^^ 



"^ 



o 



o 



o 



o 



o 



o 



Figure 2-21.1. 
p INPUT MiiiBMi 


MPS Batch Ir 


litialization ( 


DLZMPI00)(Part3of4) 
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Iabndab 1 Iabndpc I 






ABSAVEAR PCSAVEAR 


1 A 


► 


AB Option 
Table 




1 Mi 


^ 


^^^ STXITAB 
^^^ STXITPC 




PC Option 
Table 


















^■■^ XPOST XECB=DLZXCB02 

18. Wait until BPC Started. 

^^^^ XWAIT XECB=DLZXCBn1 

> 19. If error return on XWAIT: 

A. Write message DLZ0841. ■ 

B. Go to Figure 2-21, for MPS Batch 
ABEND Handler. 

^ 20. Check for and process any MPS 
Restart error conditions. 

> 21. Check if online partition successfully 

initialized for MPS. 

^1^1^ XECBTAB TYPE^CHECK 
^^^ XECB=DLZXCBn3 

^2. Reset lock. 

> 23. Move program request handler 

address to COMR EG. 

^mA MVCOM 


■^ 


r""" 


XECB 






.^ 1 








MPCPT Entry 


FLAG2 
> 1 FLLOCK 1 

COMREG 
>|X'10' 1 




MPCFLAG1 


MPCRSTRC 








DLZXCB02 




XECB 


MPCPT Entry 
Address 








MPCPT Entry 




MPCFLAG 


MPCRC1 


MPCRC2 








1 NAME=DLZMPSO ] 




1 








DLZMPRH 
Address 

















DLZMPIOO - MPS Batch CSECT 



Extended Description 



Extended Description 



17. Notify the online partition 
(DLZMPCOO specifically) that an 
MPS batch job is ready to execute 
and write batch started message 
DLZ081I if XPOST successful. 

If XPOST unsuccessful, delete MPS 
batch XECB (DLZXCBnl), write 
message DLZ084I, and cancel. 

18. Wait is made for DLZBPCOO to post 
the MPS batch XECB (DLZCBnl) to 
notify us it is initialized and has 
completed a DL/I scheduling call 
for us. 




XPOSTl 
XWAITl 



21. If onhne side successfuUy initiaUzes, 
XECB DLZXCBN3 is created. 

Write message DLZ099I if DLZXCBN3 
did not exist. 

Write message DLZ095I and the return 
code if a scheduUng error indicated. 
Write message DLZ085I if BPC could 
not be attached. 

22. No more need to serialize. 
23. 




XECBCHK3 
MVCOM 



Figure 2-21.1. MPS Batch Initialization (DLZMPIOO) (Part 4 of 4) 
INPUT ■Mi^BHB^MMi^ mm PROCESS ^hmm^hmi 



/^TCA 



AA "I 



3LISA h 



JPSTPSB ~| -| 

PDIR ■■ ' 



^24. If MPS Restart is not required, 
go to Step 27. 

^25. If job was restarted: 

A. Complete restart initialization. 

B. Issue message DLZ081 1 to 
indicate job restarted. 

C. Return to MPS program request 
handier. 

26. Create copies of PCBs from online 
partition in batch partition. 

^H^ GETVIS Macro 

►27. Set up indirect list for PL/I PSBs. 



- - >28. Set up parameter list for application 
program. 



29. Locate BPC XECB. 

^^■^ XECBTAB TYPE=CHECK 



^30- Exit to application program. 



31 . Go terminate. 



DLZMPIOO - MPS Batch CSECT 



Extended Description 



3 



XECBTAB 
Entry 



R15 R13 1 


Entry 
Point 


P ' 


SAVEUSER 


1 II 


Return 
Address 









I 



A 



5 

s 



27. 

28 . If PL/I - a three-word list is set up 
with pointers to PCBs in PLITABLE, 
amount of dynamic storage, and start 
of dynamic storage area for PL/I. 
If COBOL, RPG II. or Assembler - Rl 
points to first PCBADDR. 

The language indicator is set in the 
parameter field following the MPS 
batch XECB (See DLZXCBl Macro). 
30. An application program runs as a 
subroutine of DLZMPIOO. 




PLILPl 





Routine 


Label 









to 
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FifUrt 2-21.2. MPS Batch Termination (DLZMPiOO) 



< 





From 












DTL 




^mg^XPOST XECB'DLZXCBn2 








FLAG 2 
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XCB1 DLZXCBn2 1 1 


^ 


XCB1ECB 


1 






XCB1FLAG 






1 




R15 


_ .^^ . 


► 3. If error return on XPOST: 
A. Write message DLZ090I. 










1 1 








B. Go to Figure 2-21, Step 5, 
to ABEND. 


1 


14 






DLZXCBnl " 


—i 


»4. Wait for online BPC to terminate. 

^■M XWAIT XECB°=DLZXCBn1 










1 i 




R15 


_-_ ._ .m 


.5. If error return on XWAIT: 
A. Write message DLZ090I. 










1 1 








B. Go to Figure 2-21, Step 5, 
to ABEND. 


1 


^ 






DLZXCBnl " 




► 6. Delete MPS batch XECB. 

mg^ XECBTAB TYPE=DELETE 
^ ' XECB-DLZXCBnl 

.7. Reset lock. 

1^1^ EOJ Macro 










1 1 


DTL 


>/^" 1 




1 NAME-DLZMPSOP: 




1 






' 1 FLLOCK 












To 
VSE 
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DLZMPIOO - MPS Batch CSECT 
Extended Description 



Extended Description 



task from starting or stopping 
while this one is terminating. 
The value of N is being set up 
for reuse during this locked 
interval and must complete 
before another MPS batch task 
can use it. 

2 . This routine is entered when 
the application program com- 
pletes. 

If the application program is 
written in PL/I code, the 
SCDLIPUflagintheSCD 
is reset to 0. 

Macro DLZXCBl defines a 
DSECT representing the 
format ofthe MPS batch 







XECB and foUowing fields used 
for communicating with the 
online partition. 

The end-of-job flag is set to tell 

is at EOJ and the BPC XECB is 
posted to tell DLZBPCOO to stop. 

4. 

7 . No more need to serialize. 




XWAIT2 
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Figure 2-21.3. MPS Batch Program Request Handler (DLZMPIOO) (Part 1 of 3) 

INPUT MMi»Mi«B^iB^ ^ PROCESS III ^— ^— — ^ 



Figure 2-21.3. IVIPS Batch Program Request Handler (DLZMPIOO) (Part 2 of 3) 
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Call List 
Address 
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::all List 
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1. Reset PC STXIT if first call from PL/I. 



2. Ensure parameter list does not contain 
more than 18 parameters. 



3. Check if all user parameter list addresses 
which should be, are within batch 
partition. 



"^ 4. Move parameters to area following MPS 
^ batch XECB(DLZXCBnl). 



^ V 5. If MPS Restart is not on, go to 



^^^ 6. Ensure valid function code and 
^ PCB address in call parameters. 



7. If a checkpoint call: 

A. Move VSE checkpoint ID from 
COM REG to batch communica- 
tion area. 

B. If restart has occurred, go to 
MPS batch initialization 
routine. 

^M^k XECBTAB TYPE=CHECK 
^^^r XECB=DLZXCBN1 

8. Substitute corresponding online 
PCB address in call parameters. 



0> 





XCB1 










XCB1CNT 


XCB1PARM 











I 



Extended Description 



Extended Description 



1 . This routine is entered on each call to 
DL/I made by the application program. 

During the first entry to DLZMPRH, the 
PL/I STXIT routine and savearea 
addresses from the PC option table are 
saved if the application program is 
written in PL/I. DLZMPRH also 
sets/resets a switch (SCDLIPLI flag in 
SCD) on exit/entry to indicate whether 
current execution is in DL/I code or PL/I 
code. This is done to enable high level 
language debugging for PL/I to give 
diagnostic information if a program 
check occurs in PL/I code. 

PL/I reissues STXIT PC when application 
program starts. Therefore, DL/I must 
reissue STXIT to get control after PL/I 
issues its STXIT PC. 




DLZMPRH 



2 . Write message DLZ09 1 1 if more than 
18 parameters. 

3. Ensure call list and addresses it points 
to are within batch partition (except 
for PCB). If PL/I, ensure that pointers 
pointed to by pointers, are within the 
batch partition. 

Write message DLZ092I if there is a 
bad address and ABEND. 

4. Macro DLZXCBl defines the DSECT 
describing the DLZXCBnl XECB used 
for communicating with the onUne 
batch partition controller 
(DLZBPCOO). 




COUNTLP 
CHKMOVEl 



• INPUT 








: 


9. Notify BPC a DL/I call is ready to be 




DLZXCBn2 1 




processed. ... 1 


^ 1 11 


' > 1 1 1 




DLZXCBnl 


^■i^ XPOST XECB=DLZXCBn2 

.10. Wait for BPC to complete processing 
^ the call. 

^ggi^ XWAIT XECB=0LZXCBn1 

> 1 1 . If an error occurred during online 

^ 12. If error return code in TCA, go to Step 19. 

> 13. If no PST, go to Step 17. 

> 14. If a task or system ABEND, go to Step 19. 
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J j PSTUSER j 
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MPCPT 
Entry 


MPCRSTRC 










MPCPT System 
Entry TCA 


1 MPCTCA j 1 TCAFCTR j 
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j TCASYAA 1 






System 

TCA — 




1 TCADLII 1 






System 

TCA PST 


j TCADLISA 1 j PSTABIND j 






PST 






PSTUSER 




PSTSEGL 




K 15. Move data to user area. " "> | | 




r- 


PSTSEG 










1 User I/O Area 

1 1 
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Segment 
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DLZMPIOO - MPS Batch CSECT 



Extended Description 


Routine 


Label 


9. If error return on XPOST, write mes- 
sage DLZ084I, then ABEND. 




XPOSTO 


10. If error return on XWAIT, write mes- 
sage DLZ084I, then ABEND. 




XWATTO 


1 1 . MPCERR flag indicates an error condi- 
tion occurred during BPC processing. 
Write message DLZIOOI if on. 






12. Write message DLZ102I including the 
return code if present. 







Extended Description 



DLZMPIOO 

Routine 



13. The storage acquired indicator 
TCADLIPS is turned on by online 
nucleus DLZODP when the PST is 
acquired. 

If no PST, it just did a TERM call. 

14. Write message DLZ098I if PST con- 
tains an error. 

15. Write message DLZlOOIif the data 
addresses are invalid. 







I 



I 



t 



Figure 2-21.3. MPS Batch Program Request Handier (DLZMPIOO) (Part 3 of 3) 

INPUT MiMWB—^«-i-i^ gm PROCESS ■ 



From 

Figure 2-21.1 
Step 25 



16. If MPS Restart is on, copy 
updated PCB from online 
to batch partition. 



17. Check if MPC is active. 



_^ 18. Return to application program. 



19. Go to ABEND handler. Figure 
2-21, Step 5. 



DLZMPIOO - MPS Batch CSECT 

Extended Description 



17. If the START PARTITION XECB is 
not at the same address as when the 
batch job started indicating there was 
a deletion and new define, or if it no 
longer exists, write message DLZ082I 
and go to Step 19. 




NODATA 



Extended Description 


Routine 


Label 
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Figure 2-21.4. MPS Batch Message Writer (DLZMPIOO) 

From 
• INPUT I ^"b m PROCESS ««i 



Figure 2-21.5. MPS Batch ABEND Handler (DLZMPIOO) 



> 1. Convert message number to 
printable decimal. 



\—Z 



[IZD 



> 3. Put message to console and printer 
unless caller indicates no message 
should be written to one of them. 

^■■^ PUT CONSOLE 
^■■^ PUT PRINTER 



2. Find message text. 



DLZMMSGT 



» 4. Clear output area and return. 



DLZMPIOO - MPS Batch CSECT 



nn 



?[ 



Caller 
10 AREA Reginer 



>" 



I 1 



^r 



dZI 



Extended Description 


Routine 


Label 


This routine is entered at one of two 






labels: 






DLZMMSG - Main entry 






DLZMMSGX - Entry if branching to 






this routine from an external 






module. 






In either case, initialize registers and then 






do the listed steps. 






1. This routine is entered when a message is 




DLZMMSG 


to be written to SYSLOG and/or 






SYSLST. 






2. The message module DLZMMSGT 






includes all messages that can be issued 






by MPS and is used in both the batch 






and online partitions. 






3. 




PUTC0NS2 




INPUT • 



DTL 

I Name=DLZMPSO | — 




m PROCESS > 



iS 3. Save ABEND code and go to Step 4. 



1. Initialize registers and go to Step 8. 

2. Set AB entry indicator. 



4. Set PC entry indicator. 

5. If error occurred while in PL/I code, 
modify return address and branch to 
PL/I STXIT PC routine. 

6. Write error message DLZ096I. 



I Name=DLZMPSo | ; ► 7. Set lock If not already set. 



8. Notify online an ABEND condition 
exists. 



f XPOST XECB=DLZXCBn3 



9. Delete this partition's MPS batch 
XECB. 



: ► 10. Reset lock. 



11. Cancel if entered via AB or PC 
STXIT and dump not required. 

■■[^ CANCEL 

12. Get a dump ami end. 

■■^ I DUMP or JDUMP 



DLZMPIOO - MPS Batch CSECT 



Extended Description 



Extended Description 



» DLZXCBn3 



DLZMPIOO 

Routine 



s, 

B 



♦There are four entries to this routine: 

1. External. 

2. AB STXIT 

3. PC STXIT 

4. The MPS Batch InitiaUzation, MPS 
Batch Termination, and MPS Program 
Request Handler routines (whenever 
XPOST is needed to tell online that 
batch completed unsuccessfully). 

2. The AB output area is located in a 
dump following the DC CAB SAVE' 
characters. 

3. The AB reason code is located in a 
dump following the DC C 'AB 
ABEND CODE'. 

4. The PC output area is located in a 
dump foUowing the DC C 'PC SAVE' 
characters. 




ABNDAB 
ABNDPC 



5 . The address of the PL/I STXIT PC 
routine was saved during the first entry 
to DLZMPRH (see Figure 2-21 .3, Step 1) 
After PL/I completes diagnostic infor- 
mation, processing returns to modified 
address in DLZMABND. 






6. 




ABPC 


7. Prevents another MPS task from starting 
or stopping concunently. 






8. 




DLZMABND 


9. 




XP0ST3 


10 J4o longer need to serialize. 






12 JDUMP issued if support exists; 
otherwise JDUMP. 




DLZIDUMP 



I 



Figure 2-22.1. MPS Stop Transaction (DLZMSTPO) 



■ INPUT ■■ 


R1 








DLZXCBOO 
Address 













CICS/VS 
DFHPCP 



■■ PROCESS ■ 



1. Locate stop transaction (MPS) 
XECB. 



2. Turn on POST bit in stop 
transaction (MPS) XECB. 



1> 



' DFHPCTYPE=RETURN 



^ DLZXCBOO 



DLZMSTPO - MPS Stop Transaction CSECT 





Routine. 


_ Label 


1. Module identifier (DLZMSTPO) 


DLZMSTPO 


DLZMSTPO 


is defined here. 






Write message DLZ080I if 






DLZXCBOO does not exist - 






MPS not active- and go to 






Step 3. 






2. Note that the XPOST macro is 






not needed to turn on the POST 






bit because stop transaction 






XECB (DLZXCBOO) is defined in 






the same partition as this module. 






DLZXCBOO is defined by 






DLZMPCOO. 






3. 




RETURN 




Figure 2-22.2. MPS Purge Temporary Storage Transaction (DLZMPURO) 





R1 






DL2XCB01 
Address 






R15 

















CICS/VS 
DFHPCP 



1. Locate stop partition XECB. 



XECBTAB TYPE=CHECK 
XECB=DLZXCB01 



2. If stop partition XECB exists and 
is within current partition: 



A. SetPURGETSQbit. 



B. Post stop partition XECB. 



C. Go to Step 4. 



> 3. Purge temporary storage queue. 



► DFHPCTYPE=RETURN 



■OUTPUTBMH 

R1 




> 


DL2XCB01 
Address 






DL2XCB01+4 




> 


X'80' 
DL2XCB01 




> 


X'80' 





DLZMPURO - MPS Purge Temporary Storage Transaction 
Extended Description Routine 



1 . Module identifier (DLZMPURO) is 
defined here. 

3. Write message DLZ130I if purge 
fails, or message DLZ128I if it is 
successful. 

4. 


DLZMPUi;:o 


DLZMPURO 
RETURN 



Extended Description 


Routine 


Label 
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Figure 2-23. Queuing Facility (Overview) (DLZQUEFO) (Part 1 of 2) 



DLZQUEFO - Queuing Facility CSECT 



' QENQDEQ (See Note) 



1. Initialize registers and 
data fields. 



2. If requested function is 
'purge', exit to QPUR routine. 



^ 


QPUR 


Process Purge 
Requests 

2-23.1 


Upon return, go to Step 7, 


3. Locate RDB, if any, for 


given resource ID. 
If no RDB located, go 
to Step 7. 


4. If requested function is 
'dequeue', exit to QDEQ 
routine. 


•* 


QDEQ 


Process Dequeue 
Requests 

2-23.2 



Upon return, go to Step 7. 



P If found: R2 



Compliment 
of RDB 
Address 



Figure 2-23. Queuing Facility (Overview) (DLZQUEFO) (Part 2 of 2) 

p INPUT II ■ r PROCESS 



|pSTf 



~ * 5. If requested function is 
'enqueue' or 'verify', 
exit to QENQVER routine. 





QENQVER 


Process 
Enqueue/Verify 

2-23.3 


Upon return, go to Step 7. 

6. If the PSTFNCTN Field 
contains an unrecognizable 
function code, terminate 
the task. 


™* 


DL/I ABEND 
Routine. 



DLZQUEFO - Queuing Facility CSECT 
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Routine 


Label 


Note: QENQDEQ is the general purpose 






entry point for requests to 'enqueue; 
'dequeue', or 'verify' a resource, or to 










'purge' all enqueues for a task. 






1. Module identifier (DLZQUEFOvrnp) 


QENQDEQ 




IS defined here. The level format is 






vmp; where 'v' is the version, 'r' is 






the release, 'n' is an additional 






identification number, and 'p' is the 






latest PTF number that has been 






applied. 






3. The proper queue head is first located 


QLOCRDB 




by hashing the resource ID. That 






queue is then searched for a RDB 






with the same resource ID. If found. 






its address is passed back compli- 






mented. Otherwise, the address of 






the last position on the queue is 






returned. 









f^fy^'nt 


Label 









Extended Description 


Routine 


Label 


6. Message DLZ267I is issued. 

7. This routine is used for common 
processing during exit for enqueue, 
dequeue, verify, and purge request. 

If processing is successful, a return 
code is set in Rl 5. Otherwise, the 
PST return code field (PSTRTCDE) 
is checked for error return codes. 
If present, the R15 return code is 
set to 4 and the registers are saved 
in the ABEND save area. 


QRETURN 





Extende^DesgjiDtion 
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Figure 2-23.1. Process Purge Requests (DLZQUEFO) 




> B. 



i QPUR (See Note) 

1. Scan each RRD attached to 
the PST RRD chain. For 
each RRD: 

A. Unchain the RRD from 
the PST forward chain 
by storing the address 
of the next RRD in the 
'first' PST pointer. 



if the tasl( is an owner of 
the resource, the owner- 
ship is released and new 
owners, if any, are located 
and promoted. 

C. If the task is not an owner, 
the RRD is unchained from 
the RDB-RRD chain and its 
space is returned to the free 
block queue. Flag parameters 
are then passed to any other 
waiting task. 

2. When all RRDs on the chain have 
been processed, the 'last RRD' 
pointer is reset. Also, the number 
of resources owned and the wait 
chain pointer are both set to 



3. Exit to QRETURN. 






PST 






PSTRRDL 




PSTNORO 




PPST 






PPSTCW 











DLZQUEFO - Queuing Facility CSECT 








Routine Label 


Note: This routine is used to purge all 
for a given task. 






1. A. The address of the next RRD 
is saved because it would be 
destroyed when the current 
RRD is returned to the free 


QPUR 




space. 






B. This routine is called to 
relinquish ownership of a 
resource by dequeuing the RRD 
for the task. It is entered by 
purge at entry point QDEQPUR 
to avoid the unnecessary 
overhead of unchaining the 
RRD from the PST. 


QRELRSC 




C. 


QPURl 

QRETBLK 

QPFLAGP 




2. 


QPUR2 




3. 


QPURX 







Rgutin^^ 
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Figure 2-23.2. Process Dequeue Requests (DLZQUEFO) (Part 1 of 2) 



|B INPUT ■ 



RRD 

I RRDMAXt. 



QDEQ (See Note) 

1. If an RDB previously located 
(Figure 2-23, Step 3), locate the 
RRD. 

If no RRD exists, exit to 
QRETRUN (Figure 2-23, 
Step 7), 

__ ' > 2. Decrement by 1, the ownership 

"^ count for the specified 



r PROCESS ■ 



Figure 2-23.2. Process Dequeue Requests (DLZQUEFO) (Part 2 of 2) 



Figure 2-23 
Step 4 



3. If the remaining ownership count 
is not zero (or if it is zero, but 
the level is not the maximum 
for the RRD), pass any FLAG 
parameters to the waiting tasks. 
Then go to Step 6. 



DLZQUEFO - Queuing Facility CSECT 



I 

2, 
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Extended Description 


Routine 


Label 


Note: This routine is used to process 






a request to dequeue a resource. 
1. 




QLOCRRD 


2. This routine is also used by 'verify' 


QDEQVER 




processing to dequeue a resource 






that was enqueued due to a required 






wait. 






3. 


QDEQVER2 
QPFLAGP 






4. If any counts are left at 
lower levels: 

A. Lower current level of 
ownership by task. 

B. Promote any new owners 
made eligible by the 
decrease in level. 

C. Go to step 6. 

5. if no counts are left at any 
level : 

A. Release the resource. 

B. Promote any new owners 
made eligible by the 
release. 




I 
I 

s. 
S 





Routine 


Ubel 


4. 


QDEQVER3 
QDEQVER4 
QDEQ VERS 
QPNDWCM 




5. Entry point QDEQPUR in this 


QRELRSC 




routine is used by 'purge' 






processing to release a resource 






already unchained from the 






PST/RRD chain. 






6. 


QDEQVERX 
QRELRSCX 
QDEQPURX 





Extended Description 




to 

I 



I 



r 
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Figure 2-23.3. Process Enqueue/Verify Requests (DLZQUEFO) (Part 1 of 2) 



Figure 2-23.3. Process EnqueueA/erify Requests (DLZQUEFO) (Part 2 of 2) 



From 

Figure 2-23 
Steps 


1^ QENQVER (See Note) 

^ 1. Checit if RDB exists. 
If RDB does not exist: 






^ PST 




^ 


QNRENQ 






New Request 
Enqueue 

2-23.4 




Upon return, go to Step 6. 

2. If RDB does exist, call 
QPFLAGP to pass any 
flag parameters to 






waiting tasks. 

3. Locate RRD or position 
on chain. 










n 




1 pstrtcdeI 

^ R3 


















1 1 




4. If RRD exists: 










QREENQ 






Existing Resource 
2-23.5 




Upon return, go to Step 6. 





5. If RRD does not exist: 



6. Exit 




DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process 
enqueue and verify requests. It deter- 
mines the type of enqueue (or verify) 
and enters the proper routine for the 
type. The possible types are: 






• New resource enqueue - The enqueue 
of a resource not currently enqueued. 






• Existing resource enqueue - The 
enqueue of a resource currently 
enqueued, but not by this task. 






• Re-enqueue - The enqueue of a 
resource currently enqueued by 
this task. 






Processing of enqueue and verify 
requests is essentially the same. The 
difference is that on the return from 

owner of the resource. 

1. 


QENQVER 




2. 


QPFLAGP 




3. 


QLOCRRD 





Extended Description 




DLZQUEFO - Queuing Facility CSECT 



Extended Description 



Routine! Label 



Extended Description 



Routine Label 



6. 


QENQVERX 
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Figure 2-23.4. New Request Enqueue (DLZQUEFO) 

> INPUT ^■»»iB-»ia»Bia« ■■ PROCESS — 



Figure 2-23.3 
Step 1 



QNRENQ (See Note) 

— ^ 1. If the function is 'verify', 
processing is complete 
at this point because the 
resource is available. Go 
to Step 3 to return to 
caller. 

L»— ' ^ 2. If the function is 'enqueue': 

A. Build and initialize an 
RDB and chain it on the end of 
the proper RDB queue. 

B. Build and initialize a 
RRD and attach it to 
both the RDB and PST 
RRD chains. 

C. Define the task as a 
resource owner. 




R2 R3 



i>. 



I 'New' RRD Address 



DLZQUEFO - Queuing Facility CSECT 



Extended Descrii 



I 
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lO 

i 
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iptioi 



Note: This routine is used to process 
an enqueue (or verify) request for a 
resource that has no current enqueues 
outstanding. 

2. A. R2 points to RDB chain 

location. R3 points to RRD 
chain head in RDB. 



QBLDRDB 

QBLDRRD 
QDASOWN 
QNRENQX 





Routine 


Label 









Figure 2-23.5. Exirtini R«MMiroe 

■ INPUT ^Bli^HBMBH 



i pstfnctnI 



RDB PST 


1 RDBMAXL 1 


PSTQLEV 1 




PSTFNCTN 1 







From 

Figure 2-23.3 
Step 4 



(DLZQUEFO) 

PROCESS ^-^i- 



QREENQ (See Note) 

1. If the requested level is not 
higher than the current 
maximum for the task, the 
resource is available. Therefore: 

A. If the requested function is 
'verify' go to Step 5. 

B. Otherwise, increment ownership 
count for the level by one. 

Go to Step 5. 



2. If the requested level is 
compatible with the 
current maximum for the 
resource and if the 
requested function is 

A. 'Verify' - Go to Step 5. 

B. 'Enqueue' - Define the tas 
as an owner at the new lev 
and go to Step 5. 

3. Otherwise, do deadlock 
detection and wait for 
resource availability. 

4. If function is 'verify', dequeue 
the enqueued resource. 




a, 

i 



DLZQUEFO - Queuing Facility CSECT 



Extended DetCTiption 



Note: This routine is used to process 
an 'enqueue' or 'verify' for a resource 
that is cunently enqueued by the 
requesting task. 



3. The task will be defined as an owner 
of the resource during 'dequeue' pro- 
cessing for other task. 

The QDUCDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 



Rojitiiw 



QREENQl 
QREENQ4 

QREENQl 
QREENQ5 

QREENQ3 
QREENQ4 
QWAIT 
QDLKDTN 



DLZQUEFO 




1. Online tasks are picked before 
MPS tasks. 






2. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 






3. In the event of a tie, the choice 
is arbitrary. 






4. 


QREENQ3 
QREENQ4 
QDEQVER 




5. 


QREENQX 





I 



Figure 2-23-6. Re-enqueue (DLZQUEFO) 
p INPUT I P" PROCESS ■ 



RDB PST 1 


(rdbmaxl 1 


PSTQLEV 




PSTFNCTN 







From 

Figure 2-23.3 
Step 5 



QERENQ (See Note) 



1. if resource is available 
at requested level : 



If function is 'verify', 
go to Step 3. 



Build RRD and chain to 
RDB and PST. 



Define the task as a 
resource owner. 



D. Go to Step 3. 



2. If resource is not 
available at requested 



Build RRD and chain to 
RDB and PST. 

Do deadlock detection 
and wait for resource 
availability. 

If function is 'verify', 
dequeue the enqueued 
resource. 




DLZQUEFO - Queuing Facility CSECT 



Extended Description 


Routine 


Label 


Note: This routine is used to process an 
'enqueue' or 'verify' request for a 
resource that is currently enqueued, but 
not by the requesting task. 

1. 


QERENQ 




B. To buUd and chain RRD, call 
QBLDRRD. 


QBLDRRD 




C. To make task a resource owner, 
call QDASOWN. 


QDASOWN 




2. 


QERENQ2 




A. To build and chain RRD, call 
QBLDRRD. 


QBLDRRD 




B. The task wUl be defined as an 
owner of the resource, during 
'dequeue' processing for other 
tasks. 


QWAIT 
QDLKDTN 







Routine 


Label 


The QDLKDTN routine detects a 
deadlock condition and resolves the 
deadlock by picking and terminating 
one of the tasks involved. The task 
terminated is selected as follows: 






1 . OnUne tasks are picked before 
MPS tasks. 






2. Within a class, the task with the 
fewest resources currently enqueued 
is chosen. 






3. In the event of a tie, the choice 
is arbitrary. 






C. 


[)ERENQ3 
QDEQVER 




3. 


QERENQX 
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Figure 2-24. Visual Table of Contents for DL/I Utility Modules HlPO Charts 
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DLZUDMPO 




DLZURULO 




DLZUACBO 




DLZURPRO 




DLZDSEHO 




DB Data set 
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(Overview) 
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Prefix 






Recovery 




Unload 




and Buffer 










2-27 




2-31 




Statistics 




2-37 




















2-43 












DLZB/ 


VCKO 




DLZU 


=iGLO 




Partia 






DLZU 
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Prefix 
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(Overview) 
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DLZLOGPO 




Log Print 




2-40 
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Figura 2-25. DB Data Set Image Copy (DLZUDMPO) 




> 1. Read control card and 
^ validate contents. 

2. Determine device type for 
output file specified 
and open file. 



3. Load DMB and obtain 
physical attributes of 
data set. 



4. Write DL/I header to 
output file. 



> 5. Open input file and read 
segments sequentially, add 
8-byte prefix to identify the 
segment, and block and 
write the logical record 
(prefix + segment) to the 
output file. 



6. Write image dump messages. 



7. Return to Step 1 if there a 
more input control cards. 






DLZUDMPO - DB Data Set Image Duinp Utility 



Extende^D^jiptimi 



1. Read and 
Write the 
DLZ302I 
DLZ303I 
DLZ304I 
DLZ307I 
DLZ308I 
DLZ309I 

DLZ310I- 



validate control statement. 

following messages as needed: 
Column 1 not D 
Column 2 not 1 or 2 
DBD name field not specified 
Input filename not specified 
Output filename not specified 
Error(s) found in control 
statement 

of erroneous control 
statement 



2. DLZDVCE macro obtains data from 
PUB-Device type may be tape or DASD. 

4. The header record contains information 
that allows the use of the image dump 
file by the DB data set recovery utility. 



Extended De^a-jption 



DLZUDMPO 
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Figure 2-26. DB Change Accumulation (DLZUCUMO) (Part 1 of 2) 



I 

3 



Control Cards 



Figure 2-26. DB Change Accumulation (DLZUCUMO) (Part 2 of 2) 



1. Get time and date of this 




LOG1N01-99 CUMIN 

(optional) 



*> 2. Call Input Card Processor 
(Figure 2-26.1) to read and 
process control cards. 



3. If no CUMOUT, but LOGOUT, call 
Write Logout (Figure 2-26.2) 
to write logout. 



I> 4. If CUMOUT, loaded sort program 
'^ (SORT) will sort LOG I Nxx records 

and call Write Logout (Fig 2-26.2) 
and Sort Module (Fig 2-26.3). On 
completion of sort, go to step 6. 



5. Establish Addressability. 





CUMOUT LO9OUT 

(optional) 



DLZUCUMO - Change Accumulation Utility 
Extended Description 



1 . Header Une is printed on SYSLST. 




riMEDEC 


2. Three returns as follows: 




READCD 


• Error - issue error message. 




BADEND 


• No accumulation output, call Write 




GOODEND 


Logout (Fig 2-26.2). Then issue 






successful run message. 






• Accumulation output, call SORT. 




JORT 


4. SORT is invoked by LOAD and 




)ORT 


BALR. At exit 35, Sort Module (Fig 






2-26.3) is called. 






5. This entry point is necessary because 




DLZERRTN 


Write Logout, not knowing who called 






(DB Change Accumulation or SORT), 






must return to this module if an error 






was detected. 








J ^6. Call Write Messages (Figure 2-26.4) 
to write completion message. 



SYSLST SYS LOG 



^ 



I 



a 



DLZUCUMO - Change Accumulation Utility 
Extended Description 



6. May be OK message or error message 
from SORT, Write Logout, or Sort 
Module. If PROCTERM X'Ol' bit is 
on in PROCFLAG, an error occured. 




CLOSE 



Extended Description 



DLZUCUMO 

Routine 




I 



K> Figure 2-26.1. Input Card Processor (DLZUCCTO) (DLZUCUMO) 



^ 



o 

< 






to 



C3 



■■ PROC 
m Fig. I 
5 Step 2 I 

Liv^ - 



Q- 



- > 



^ 1. Read control cards, validity 
check, and create Log Input 
Specification Table. 



2. Save appropriate control card 
data. 



3. IssueGETVISforDBand 
Date/Time Table, if required. 



4. Check for valid DMB in CIL. 
Prepare DB Table and Date/Time 
Table in alphabetical order. 



5. Test for valid combination of 
cards or no input (use default 
values). 



6. Return to caller. 



DLZUCUMO - Change Accumulation Utility 
Extended Description 



1. Possible card types are: 

• 'ID' specifies db number, max key 
length, number of sort, work, and 
log files. 

• 'DBO' describes records to be 
accumulated from input and 
written to CUMOUT. 

• 'DBl' describes records to be 
written to new log file. 

• 'LI' describes a log input file. 

• Error card - call Write Message 
(Fig 2-26.4) to write appropriate 
error message. 

2. Data from control card(s) is saved in a 
dsect residing in DLZUCUMO, 
addressable by all modules in this 
utility. The dsect name is DLZUCUMC. 




GETCARD 
ERROR 




Extended Description 



3. Tables are not required if *ALL was 
specified. The number of entries in 
each table is equal to the number of 
data bases as specified on the ID control 
cardordefault of 16. 

4. This information is filled from the DBO 
and/or DBl card(s) if present. 

5. If any errors occur during steps 3, 4, 
of 5, call Write Messages (Fig 2-26.4) 
to write error messages and exit. 




GETMAIN 
DDNUMCHIi 



Figure 2-26.2 Write Logout (DLZUC150) (DLZUCUMO) 










(See Note) 1 

Ih 






Parameter 










List 






^ parameter list aooress. 

2. If initial entry, open LOGIN and 
LOGOUT (if needed). Obtain work- 
space via GETV IS. 




A (record) 




A (rtncode) 








r^ 












> j»»f?» — ffc»»r "' " 1 


Q 

LdGIN01-99 






4. The '50' record is bypassed under 
certain conditions. 


_. 


. ;r" 










LOGOUT 




output log file. 
















„r' 1 


> 






7. If any error occurs, exit to DLZUCUMO 
(Fig 2-26, step 5). 




















8. After all input records are processed, 
return to caller. 


Return to 
Caller 





DLZUCUMO - Change Accumulation Utility 
Extended Description 



Note: This program has two entry points: 

• DLZUC150- from SORT. 
Entered when SORT wants 
another input record. 

• DLZUEXl 5 - from Figure 2-26, 
step 3 (DLZUCUMO). 

3. On EOF, the file is closed. If more input 
specified, XX (LOGINxx) in the DTF 

or ACB is incremented by 1 and the 
next log fUe is opened. 

4. Bypass '50' record for the following: 

• *ALL and log date/time less than 
purge date/time. 

• dbname match and log date/time 
less than purge date/time. 

• No dbname match and *OTHER 
not specified. 







Extended Description 



DLZUCUMO 

Routine Label 



4. (con't) 

• No dbname match and log date/time 
less than purge date/time. 

5. Write log record for the following '50': 

• *ALLon DBl card. 

• Dbname match and dbname on DBl 
card. 

• No dbname match and *OTHER on 
DBl card. 







1 
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s. 



o 



*, 
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Figure 2-26.3. Sort Module (DLZUC350) (DLZUCUMO) 

p INPUT MBHBBiiBii-B^Mr^ From SORT |p PROCESS — — 



Figure 2-26.4. Write Messages (DLZCUMMO) (DLZUCUMO) 




1. Receive log record from SORT. 



2. Initial entry processing as follows: 



A. Process '2F' record and obtain 
workspace via GETVIS. 



B. Determinedevice type for CUMIN 
(if specified) and CUMOUT. 



'^ 3. Sorted log records are merged 
^ matching CUMIN records (if s 



jed with 
matching CUMIN records (if specified) 
and records written to CUMOUT. 



4. When next log record needed, return 
to SORT. 



5. When all log records and CUMIN 
records are depleted, return to SORT. 




DLZUCUMO — Change Accumulation Utility 
Extended Description 



1. SORT returns at EOF with an indication 
that no more records exist. 

2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 

3. The following merging logic is used for 
comparison of LOGIN and CUMIN to 
create CUMOUT. 

• For every new DMB name (data set 
ID), an accumulation header record 
is written either from the CUMIN 
record or created from the '2F' 
record. 

• Every CUMIN record is purge 
checked by date/time as specified 
by the user. The DB table as 
modified by DLZUCl 50 is used 
for a specific DMB or the *ALL/ 
♦OTHER purge date is used as 
applicable. 

• If a matching log record is found, 
all log records with the same data 
ID will be merged with the CUMIN 




DLZUEX35 
TSTEODDB 



Extended Description 



^ 1. Calculate address of message. 

2. Write output message. 

3. Exit 



SYSLST SYS LOG 



i 



DLZUCUMO 

Routine 



3. (con't) 

record and written to CUMOUT. 

• If there is no matching log record, 
the CUMIN record is written to 
CUMOUT unchanged. 

• If log records exist but no CUMIN, 
the log records are accumulated by 
data ID and wrritten to CUMOUT. 

4. A 'delete' return code is given to SORT 
so that SORT does not further process 
the current record. SORT will prepare 
the next input record and enter this 
program at step 1. 

5. Free all work areas and close CUMIN 
and CUMOUT. 

Indicate 'no return' to SORT. 




ENDJOB 
ENDSORT 



DLZUCUMO - Change Accumulation Utility 
Extended Description 



Extended Descriptit 



Note: This module can be called by 
DLZUCUMO, DLZUCCTO, 
DLZUCl 50, or DLZUC350. 

1 . Rl contains message number. 

2. Output can be to SYSLST or SYSLOG. 

3. 




MSGSEL 
WRITE! 
RETURN 




I 



Figure 2-27. 


DB Data Set Recovery (DLZURDBO) (Part 1 of 2) 








From 
DLZRRCOO 


# 




1 1) 1 


DMB PST 


^ ^> 1. Obtain DL/I control block 1 




addressability via GSCD 
call. 


1 II 1 










/~ 














^'> b. Uoen inout tile(s) and 1 










SYSIPT 


♦-♦ 


DLZURCCO 






Processor 

2-27.1 


3. Determine device type for 
each input. 

4. Open data set (open ACS 
call). 




*^ 


DLZDLOCO 




Required: 




Open/Close 
2-14 


jC^ 


■^ 


o 

N 


DUMP 


5. If processing only log 
records, go to Step 10. 




Optional: 

CUMIN 


1 






process DL/I header 
information. 








H^ 



DLZURDBO - DB Data Set Recovery Utility 



Extended Description 


Routine 


Label 


2. There are three returns: 






• No errors - continue processing. 




GETDMB 


• No input statements - terminate 




CLEANUP 


processmg. 






• Error - issue error message and 




BADRUN 


terminate processing 






3. DLZDVCE macro obtains data from 






PUB. Device type may be tape or 
DASD. 






6. DUMPIN file is mandatory and may 
be output from DLZUDMPO or 
DLZURULO. 






CUMIN file is optional and is output 
from DLZUCUMO. 







^escrigtio 



DLZURDBO 

Routine ^bei 



Figure 2-27. DB Data Set Recovery (DLZURDBO) (Part 2 of 2) 














1. Read and merge data and 
write records. 






> 

Data Set 

Data Set 






4-4 








DLZDBHOO 




DB Buffer 
Handler 
2-15 


8. Close input files. 

9. If no log input is to be 

10. Open LOGIN file. 




LOGIN01 to LOGINxx 




^~"" > II, Process all loa records tor 






this data set. 














DLZDBHOO 




, 


DB Buffer 
Handler 
2-15 


12. Close LOGIN file. 

13. Close Date set (close ACB 
call). 




^^ 


DLZDLOCO 




Open/Close 
2-14 


14. Exit. 








■B 




To 
VSE 



DLZURDBO - DB Data Set Recovery Utility 





Routine 


Label 


7. Records are read from DUMPIN and 
CUMIN via GET calls and are vratten 
in ascending order (compare by key 
if KSDS, and by RBA if ESDS). The 
proper PSTFNCTN is supplied for 
call of buffer handler. 

9. LOGIN file is optional. 

11. LOGINOl to LOGINxx files are 
processed sequentially. 




SETFLOW 
PROCLOGS 





■nfittiitiy&iB 
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Figure 2-27.1 Control Statement Processor (DLZURCCO) 




!■ PROCESS ■ 



Figure 2-28. DB Change Backout (DLZBACKO) 



1. Read control statements and 
check for validity. 



2. Create log input specification 
table. 



3. Test for default tape log. 

4. Return to DLZURDBO. 



Log Input 
■^^ Specification Table 



DLZURCCO - Control Statement Processor CSECT 





Routine 


Label 


1. Possible card types are: 


DLZURCCO 


GETCARD 


'S' - identifies data set 
to be recovered. 






'LI' - describes log input 
file(s). 






Write the following messages as needed: 






DLZ302I - Column 1 not S 
DLZ304I - DBD name not specified 
DLZ307I - Input filename not specified 
DLZ310I - Image of erroneous control 

statement 
DLZ342I - Invalid number of log files 
DLZ372I - Invalid log buffer size 






2. One entry in table describing file type, 
logical unit, and buffer size for each 
log file. 






3. If no log file is specified, issue macro 
DLZDVCE to see if SYS013 assigned 
to tape. 




CLEANUP 



Extended Description 



Routine Label 




LOG IN 01 to LOGINxx 



.muu/. ppo 



1. Read control cards and create log input 
specification table. 



>2. Obtain DL/I control block addressability 
via GSCD call. Open log input for read 
backward. 



f>3. Read and deblock DL/I log record. Only 
"** accept records for specified PSB. 

4. Terminate processing if termination '07', 
scheduling '08', or checkpoint '41' record. 

5. Bypass if '50' record and physical replace. 



6. Process all other records for this PSB. 



Process Log 
2-28.1 



If no error occurred, go to step 3. 



7. Write appropriate completion message. 



8. Return to DL/I to purge buffers and close 
Logout files and DMBs. 



DLZBACKO — Data Base Backout Utility 



[OUTPUT — 
Log Input 
Specification 
^ Table 



T> "-"^^ 




^acn 



SYSLST SYS LOG 



i 



Extended Description 


Routine 


Label 


1. 'U' control cards describe one input 
log file each. 






2. InitiaUze PSTDBPCB, PSTDGU, and 
PSTDGN. 




INIT 


3. At end of file, go to step 7. 




READ 
NXTLREC 


4. 




CHKLOGT 


5. 




CHKDPHYR 


6. The log record is placed in a work area 
(READ AREA) whose address 
DLZRDBCO obtains via a V-con. 




OK 
CALLBO 


7. The input log file is closed. If another 
log file exists, it is opened and process- 
ing continues with step 2. The message 
texts are found in DLZBACMO csect. 




EOF 

MSGGEN 





Routine 


Label 









Figure 2-28.1. Process Log Record (DLZRDBCO) (DLZBACKO) 
INPUT ■— ^— 



Figure 2-28.2. Simple HISAM Backout (DLZFlDBCO) (DLZBACKO) 



DLZBACKO - Data Base Backout Utility 



>2. Read data base record containing segment 
data to be changed. 



1. Initialize dummy DSG and PST fields and ' 
open DMB if not open. 



Open/Close 

2-14 



3. If simple HISAM, go to Figure 2-28.2 to 
back out log record. 

4. If HISAM or INDEX, go to Figure 2-28.3 
to back out log record. 

5. If HD data base, go to Figure 2-28.4 to 
back out log record. 



6. Log data base change. 



7. Write data base record. 



DB Buffer 
Handler 

2-15 



Extended Description 


Routine 


Label 


1. 




INIT 


2. The following calls were made to the 
buffer handler: 




READREC 


A. If HISAM KSDS, issue PSTSTLEQ 
call. 




LOCKEY 


B. If HISAM ESDS, issue PSTBYLCT 
call. 




LOCBYTE 


C. If HD ESDS, issue PSTBKLCT 
call. 




LOCKBLK 


6. Output log records contain the 'opposite' 
function to which was on the input log. 




LOGNDWRT 
LOG 


7. The return code is checked and appro- 
priate action is taken depending on the 
call and return code. 




WRITEBFR 





Dummy DSG 






DSGDMBNO 




DSGINDA 


DSGDCBA 


DSGDCBNO 




PST 






PSTDSGA 




PSTACBNM 









>Q 



LogR 



■■ PROCESS ■ 



From Fig. 
2-28.1 
Step 3 



h 



I-- 
I 



1. No action if key not found and log 
record is physical replace or insert. 



2. If physical delete and key not found, 
;iet buffer space and move old data. 



DB Buffer 
Handler 
2-15 



- > 3. If physical delete and key found; 
set buffer handler function to add 
new key (PSTPUTKY), and 
niplace data in buffer. 

< 4. If' physical insert and key found, set 
buffer handler function to erase key 
(PSTERASE). 

5. 11' physical replace and key found, 
replace data in buffer with old data. 

• 6. Log action as physical delete if key 
not found and log record is physical 
insert. 



DLZBACKO - Simple HISAM Backout Utility 
Extended Description 



Extended Description 


Routine 


Label 









1 . The address of the log record is input 
to this routine. 

2. 

4. 

5. 

6. 




KEYNOTFD 
SHISNREC 

KEYNOTFD 

SHISREC 

CALLREP 

SHISNREC 




5 

i 



o 



V 



o 



o 



o 



o 



o 



Figure 2-28.3. HISAM or INDEX Backout (DLZRDBCO) (DLZBACKO) 



Figure 2-28.4. HD Backout (DLZRDBCO) (DLZBACKO) 



DLZBACKO - Data Base Backout Utility 



Log Record 

(old segment | 


From Fig. 
2-28.1. 
Step 4 

'—J — : 

1 
1 

1 

1 — 






-OUT 


Buffer Pool 




> 1 . If physical Insert for KSDS, > 




mark segment in buffer logically 
deleted. 

> 2. Bypass physical Insert for 
ESDS. 






changed 
delete byte 






Buffer Pool 






S 3. If physical replace, replace ■ > 




1 old segment | 
Log Record 

1°'- «■'"'" 1 




data in buffer with old data. 






changed 
segment 






Buffer Pool 




i. 4. If Inginal delete, reset delete "> 




code. 

5. No action if key not found and 
not insert. 

6. If key not found and insert, log 
changes as replace with logical 
delete flag on. 

data in buffer with old chain value. 






changed 
delete byte 










■■■ 


■^^ 


1 




To Fig. 2-28.1 
Step 5 









m INPUT 



■■ PROCESS ■ 




1. If chain maintenance record, 
move old chain pointer to 
buffer. Make new log code = 
physical replace. 



> 2. If physical delete, make new log 
code = physical insert. Obtain this 
space again and update FSEs. Re- 
place information in buffer with 
old data. 



HD Space 
Management 
2-13 



3. For physical replace, replace 
data in buffer with old data. 



4. For physical insert, free space in 
buffer. Make log code = physical 
delete. 



5. For counter maintenance, the 
counter is adjusted by the 
amount specified in the 
adjustment field. 



DLZBACKO - Data Base Backout Utility 





Buffer Pool 






updated 
segment 






Output Log 
Record 

















Extended Description 


Routine 


Label 


1 . If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed. 




HISREC 
HISISRT 


2. Chain maintenance log records for 
KSDS effectively back out physical 
insert to ESDS. 




HISREC 


3. 




HISREC 


4. 




LGDLET 


5. 




CHKISRTH 


6. If segment is an INDEX data base 
(primary or secondary), the pointer 
to the index target segment is also 
zeroed in the log record. 




CHKISRTH 


7. 




CHNMAIN 



Extended Description 



Extended Description 


Routine 


Label 


1. 




CHNMAIN 


2. 




HDFDLET 
HDNDLET 
HDUDLET 


3. 




HDUREPL 


4. 




HDFISRT 
HDNISRT 
HDUISRT 


5. 




CTRMAIN 




I 

I 



E5 







to 

I 



Figure 2-29. HS DB Unload (DLZURULO) 



C 



From DOS/vr PROCESS ■ 
JCL I 

* > 1.R( 



Figure 2-30. HS DB Reload (DLZURRLO) 



Q 



Read control card and validate contents. 



2. Initialize short segment and statistics 
tables. 



3. Determine device type for each output 
file specified. 



> 4. Load DSD and obtain physical character- 
istics of data base as it will be reloaded. 



5. Generate VSAM control blocks and open 
data sets. 



> 6. Read records in key sequence, remove 
deleted segments, and write newly 
formatted KSDS and ESDS type records 
to output. 



7. Write statistics and close all files. 




p INPUT I 



DLZURULO - HISAM Reorganize 
Extended Description 



Extended Description 



1. Read and validate control statement. 
Write the following messages as needed: 

DLZ302I - Column 1 not R 
DLZ303I - Column 2 not 1 or 2 
DLZ304I - DBD name not specified 
DLZ307I - Input filename not specified 
DLZ308I - Output filename not specified 
DLZ309I - Error(s) found in control 

statement 
DLZ3 1 01 - Image of erroneous control 

statement 
DLZ334I - Column 3 not N, R, U, or 

blank 

3. DLZDVCE macro obtains data from PUB. 
Device type may be TAPE or DASD. 

5. Issue GENCB for ACB, RPL, and EXLST. 
Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 

6. Processing as follows: 

A. Read KSDS records in key sequence, 
bypass if deleted, ESDS records 
containing overflow dependent 
segments are read by RBA. 

B. Format work area like KSDS record 
with new attributes. 







6. (con't) 

C. Move as many segments as will fit into 
KSDS work area, bypassing deleted 
segments. Calculate overflow RBA. 
Write image of KSDS to output. 

D. Format work area like ESDS record 
with new attributes. 

E. Move any dependent segments as will 
fit into ESDS work area, bypassing 
deleted segments. Calculate RBA for 
next record, if required. Write image 
of ESDS to output. 

7. Statistics also written to SYSOl 1 to be 
used for comparative purposes during 
reload. Processing will continue if addi- 
tional input cards. 







r 




From VSE f" PROCESS ■ 



romVSE f" PRO( 

> 1. r 



1. Read control card and validate 
contents. 



2. [)etermine device type for input 
file. 



3. Initialize statistics table. 



4. Clenerate VSAM control blocks 
and open data set. 



^ 5. Fiead records from input and 
vtrrite to data base. 



6. Print comparative statistics. 




DLZURRLO - HISAM Reorganization Reload Utility 
Extended Description Routine 



Extended Description 



1 . Read and validate control statement. 
Write the following messages as needed: 
DLZ302I - Column 1 not L 
DLZ307I - Input filename not specffied 
DLZ309I - Error(s) found in control 

statement 
DLZ310I - Image of erroneous control 

statement 
DLZ344I - Column 3 not N, R, U, or 

blank 

2. DLZDVCE macro obtains data from 
PUB. Device may be TAPE or DASD. 

3. The first record on the input file 
contains a statistics table initialized 
to zero. Included is the segment code 
and length for all segment types in the 
data base. 

4. Issue GENCB for ACB, RPL, and 
EXLST. Open KSDS and ESDS unless 
ACCESS = SHISAM (KSDS only). 

5. KSDS image records written to KSDS 
as key sequence records. ESDS image 
records written to ESDS as address 
sequence records. 








i 
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Figure 2-31. HO DB Unload (DLZURGUO) (Part 1 of 5) 



A(SCDADDR| 



;► 3. Establish addressibility. 



JCBSDBND 
JCBORGN 



^ 1. Read control statement and validate 
contents. 

> 2. Obtain DL/I control block 
addressability via GSCD call. 

A ^ CALL Macro 



ASMTDLI 



4. OPEN the printer and print the 
statistics report header. 

•■■^ OPEN Macro 
Ml^ PUT Macro 

5. Determine device type for each 
output data set specified. 

DLZDVCE FNAME=RESTART Macro 

^ DLZDVCE FNAME=HDUNLD1 Macro 

DLZDVCE FNAME=HDUNLD2 Macro 



6. Acquire storage for and 
initialize statistics table. 



GETVIS Macro 



^ PSBADDR 



-w? 



Callar 
SCDADDR Ragistars 


A(SCD) 


1 1 


A(PST) 






PCBADDR 




1 1 







JJCBINDC |Ja 
STATSIZE I 

I iv. 



DLZURGUO - HD Reorganization Unload CSECT 



Figure 2-31. HD DB Unload (DLZURGUO) (Part 2 of 5) 

p INPUT ^mmi^mm^mim^m^ ■■ PROCESS m^ 



Extended Description 


Routine 


Label 


1 . Write the following messages, as 
needed: 






DLZ329ICHKPT parameter 

invalid 

DLZ359I Error - Not REW= or 

CHKP= 

DLZ368I Error - Not an N, R, or U 

DLZ386I Error - DupUcate 

control card 






2. Module identifier (DLZURGUOvmp) 
is defined here. 


DLZURGUO 


DLZURGU( 
BEGIN 


The GSCD call returns the SCD 
address +X'60' and the PST 
address in the call parameter I/O 
area (SCDADDR). 






The PCB address is passed to this 
module in Rl and stored at 
PCBADDR for later use. 






4. 




PUTHEAU 


5 . If restarting, set the restart in 
process indcator on at INDA. 




PUBCHKl 



Extended Description 



If HDUNLDl is IGN or UA, write 
DLZ3 1 1 1 followed by DLZ385I 
and DLZ384I and then terminate. 

If HDUNLD2 is IGN or UA, write 
DLZ345I and continue processing. 

6.. Indicate to DL/I Retrieve that HD 
UNLOAD is running by setting 
the indicator (JCBHDULD) at 
JCBINDC. 

Macro DLZUSTAT contains the DSECT 
defining the format of a statistics 
table entry. 

The table contains the segment code 
and length for all segment types in 
the data base. 




MAINl 



PSDB - il 

DMBPRSZ II 
DMBBDL II 
DMBFLAG || 
DMBLST H 

riftADDI CKi '* 



DMBLENTB 1 
DMBSECTB | 


SEC 

DMBSCDE 




DMBSFLG 




DMBSFD 



I 1 



[:::3 




7. Acquire storage for a buffer 
to hold the unload record with 
the largest segment. 



GETVIS Macro 



8l Open output data set(s). 



OPEN Macro 



9l If not restarting, go to 
step 13. 



> ia Ask operator for checkpoint 
^ restart number. 



OPEN Macro 

PUT SYSLOG Macro 

GET SYSLOG Macro 



11. Copy records including 
checkpoint records to output 
until the checkpoint record to 
start from is found. 



DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine Label 



AVRGREC RECADDR 

I "1 / 1 A (racofd) 



JytA 

\di 



LOGRESP 




I 

I 



3 

1 



7. Macro DLZURGUF contains the DSECT 
defming the format of an unload record. 




STATEND 


8. 




FESTSECD 


9. 




SETOUT 


10. Open the RESTART file and write 
message DLZ318A to SYSLOG 
requesting restart number and read 
response. 




RESTRTO 


1 1 . Macro DLZCKPT contains the DSECT 
defining the format of a checkpoint 
record. 




RESTRT2A 


Write message DLZ315I if end-of-fde 
is reached on the restart data set 
without fmding the requested check- 
point record. 







K 



I 



Figure 2-31. HD DB Unload (DLZURGUO) (Part 3 of 5) 



m INPUT 




I PROCESS ■ 



12. Get ready to position the 
data base to the segment 
identified in the requested 
checkpoint record. 



] ^ 13. Position the data base (GU call). 



14. Get ready for unqualified 
GN calls. 



^ 15. Issue GN for segments and 
^ check return code. Go to 

step 21 if end of input data. 






16.: Fill in the remaining fields 
of the unload record. 



DLZURGUO - HO Reorganization Unload CSECT 



Extended 



Descriptioi 





A(GN) 


RGUHSDF 


A (PCB) 


RGUHDRLN 


A (lOSEG) 









DLZURGUF 



Figure 2-31. 


4D DB Unload (DLZURGUO) (Part 4 of 5) 












DLZURGUF 


j 


J 




DLZUSTAT 










> 17. Update statistics table. ZZ] 




^ 






















DLZURGUF RECADDR 


ki 

HDUNLD1 
HDUNLD6 






1 1 


> 1« WritPthP.mlnaHrPmrH 










^■■^ PUT Macro 














DLZURGUF PCB 


DLZCKPT 




*■> 19. Build a checkpoint record 


^ 


^ 






DBPCBMKL 


if required. Otherwise, 
return to step 13. 








DBPCBKFD 






1 


^ ^ 1 




DLZCKPT RECADDR L 


■cr 

HDUNLD1 
HDUNLD6 




> zu. \mite a checkpoint record. , 






1 1 




AJIIHB PUT Macro 

21. Return to Step 13. 

22. Update the statistics for the 


fs 












DLZUSTAT 








1 


23. Write the last block of 






(^ 








HDUNLD1 
HDUNLD2 

«^ J 


^■■^ PUT Macro 










^^^^ 



DLZURGUO 



DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine Label 



12. If the RBN is available in the check- 
point record, the SSA will be 
"segname*T (rbn)" (HDAM or 
HIDAM). 

If the RBN is not available, a qualified 
key call is required. The GETVIS 
macro is used to get a work area to 
build the SSA for the call. The SSA 
will be "segname*C (key)". Following 
the call, the work area is freed. 



13. Write the following messages as 


needed: 




DLZ301I 


- Open failure 

- Unexpected status 


DLZ348I 




from return code 


DLZ349I 


- Input I/O error 


DLZ339I 


- Restart successful 


DLZ384I 


- Additional diagnostics 




on SYSLST 


DLZ385I 


- Restart failed 


DLZ380I 


- Segment not found 






Routine 


Label 


14. lOSEG is the beginning of the variable 
length data field following the DL/I 
prefix information of the unload 
record. 




RECREATE 


15. Write the following messages as 
needed: 






DLZ301I - Open error 
DLZ348I - Unexpected return 

code 
DLZ349I - I/O error 






16. Write message DLZ400I for a sequence 
error. 




HDRFILL 



17. 




SETDLEN 
UPSTATS 


18. The records are moved to the output 




WRITE3 


block. When the block of records is 






full, the block is written. 






19. Qieckpoint records are written at the 




rSTCHK 


first root segment after every 5000 




CHKPNT 


segments. 






20. Write message DLZ381I every time 




CHKPNT2 


a checkpoint is taken. 






22. 




EODINPUT 
LASTROOT 



Extended Description 


Routine 


Label 
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Figure 2-31. HD DB Unload (DLZURGUO) (Part 5 of 5) 
■■ INPUT I r" PROCESS 



TABBUF 

I t : 



U4 



TABBUF RECADDR 



STATSIZE AVRGREC 



24. Write statistics table record. 



25. Close output files. 

^■■^ CLOSE Macro 
flHHV CLOSE Macro 



p 26. Edit and print statistics 

report and volume information. 



27. Free table buffer and segment 
buffer. 



FREEVIS Macro 
FREEVIS Macro 



28. Close the printer. 



S 29. Return to DL/I. 



DLZURGUO - HD Reorganization Unload CSECT 

Extended Description Routine 



O 



a 



o 

I 

K3 



24. 




WRTTLST 


25. 




CL0SE2 


26. Write message DLZ339I (no errors 




EDITSTAT 


detected). 






27. Write message DLZ392I for 




STOPRUN 


FREEVIS error. 






28. 




ST0PRUN2 


29. 




NODUMP 





I 



I 



? 



I 



I 






Figure 2-32. HD DB Reload (DLZURGLO) (Part 1 of 6) 




^^ 1. Read control statement and validate 
contents. 



>s. 2. Obtain DL/I control block 
tr addressability via GSCD call and 
initialize. 

3. Open the printer. 

^■■^ OPEN Macro 



4. Determine device type for input file 
and open it. 

^ig^ DLZOVCE Macro 
^^^L OPEN Macro 

> 5. Read first record and check for 
a statistics table. 

#■1^ GET Macro 

6. If not restarting, go to Step 20. 



^ 7. Get checkpoint restart number 
from operator. 

^■iP PUT Macro 
4tg^ GET Macro 



caller 
PCBADDR register* 


1 il 1 


SCDADDR 




A(SCO) 




A(PST) 







I/O Buffer 
J 1 


>> Stat record 


1 1 






Figure 2-32. HD DB Reload (DLZURGLO) (Pan: 2 of 6) 

M INPUT ^M^BBMMK^M^ pa PROCIiSS ■ 



DLZURGLO - HD DB Reload 





Routine 


Label 


1 . Write the following messages, as 
needed: 






DLZ351I Error- Not REW 
DLZ368I Error - Not an N, R, or U 
DLZ386I Error - Duplicate control 
card 






2. Module identifier (DLZURGLOvmp) 
is defined here 


DLZURGLO 


DLZURGLO 
BEGIN 


The PCB address is passed to this 
module in Rl by DLZRRCOO and 
stored at PCBADDR for later use. 






The GSCD caU returns to the SCD 
address +X'60' and the EST address 
in the call parameter I/O area 
(SCDADDR). 






4. Write DLZ311I if HDUNLDl is not 
assigned. 







Extended Descri|stion 



5. Issue DLZ389Iif abnormal 
statistic table record. 

6. If the HD DB Reload Utility Program 
fails, the reload restart capability 
allows you to restart from a check- 
point record. Before submitting the 
job for a reload restart, change the 
parameter card from ULU to ULR. 

7. Write DLZ318A message to SYSLOG 
requesting restart number and read 
response. 

The number of the last valid check- 
point record on the unloaded file 
is found in console message DLZ3glI. 
VaUd checkpoint numbers are decimal 
values between 1 and 9999. 




STATINIT 
RSTMESSG 




DLZCKPT 


PCBADDR 


RCKSEGNM 


1 1 


RCHKEYLN 




RCKEYVAL 





» 8. Locate requested checkpoint 
record. 




> 9. Get ready to position the data 
baw to the segment identified 
in the requested checkpoint 



> 10. Position data base (GU call). 



>11. Find end of data (GN call). 



GUCALST 



A (WRK1AREA) 



Lmkage to DL/I 



12. If the return code indicates 
end of data, go to step 16. 



> R9_ 



DLZURGLO - HD DB Reload 





Routim! 


Label 


8. Write DLZ370I if the checkpoint 
requested is less than the first check- 




RSTGETLP 


Write DLZ315I if checkpoint record 
not found. 






Write DLZ381I checkpoint informa- 
tion message. 






9. The SSA for the GU call is 'segname'C 
(key)\aquaUfiedkeycall. 




RSTPOSIT 


10. The return code is checked. 


- 


CALLIT 


Write DLZ380I unable to position 
DB, checkpoint record not found. 







Extended Detcription 



DLZURGLO 

Routine 



1 1 . Now that the data base is positioned 
at the segment identified by the check- 
point record, issue GN calls to the end 
of the data base at the same time 
reading corresponding records from 
the unloaded data base in order to 
keep the two synchronized. 

A counter for GN calls (R9) is 
incremented by one for every GN 
call following a root segment. 

Write DLZ380I unable to position 
DB if invalid retum code. 
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Figure 2-32. HD DB Reload (DLZURGLO) (Part 3 of 6) 

P INPUT H^BnaaMBBBBB^ ^ PROCESS M». 



DBPCBKFD IJa(SSA) I ■ 




DLZURGUF DLZCKPT 

I rguseglvIIrchknameI 



A(GU) I I I 

AlWRKIAREA)! L,^ J 

A ISSA) I DATA BASE 



13. If the segment returned is not 
a root segment, skip to step 14. 



■^ 14. Put the new root segment key in 
^ the parameter list of the GU 

call and return to step 10. 



15. Read corresponding record from 
unloaded data base. 



16. Return to step 10 to get the 
next segment. 



17. Position data base to last root 
segment (GU call). 



DLZURGLO- HD DB Reload 



Extended Description 


Routine 


Label 


13. 




CHKKEY 


14. Reset the counter for GN calls (R9) 






to zero. 






15. 




UNLDGET 


1 6. If the record returned from the 






unloaded data base is a checkpoint 






record, return to step 14 to get the 






next record in order to keep the 






partially reloaded data base and 






the input unloaded data base 






synchronized. 






Issue DLZ381I checkpoint informa- 






tion message. 






17. 




REPOSN 




DLZURGLO - HD DB Reload 



Figure 2-32. HD DB Reload (DLZURGLO) (Part 4 of 6) 






















GNLIST 


> 18. Position data base to the last 




A (GN) 


^ 






A (PCB) 


■f 1 




segment (GN calls). 










A (WRKIAREA)! ^» ^ 


^^ 


CALL Macro 








ASMTDLI 




^"N 


DLZURGUF 


R9 


Linkage to DL/I 


1 RGUSEGLVl 










1 










L 


SCDADDR 


f-H 




> 19. If a work file is present, 

copy partially created work 




1 — ::: — ; — i 






'> 1 1 1 


1 A (SCD) 1 






WORKFIL 


SCD 


^■■B OPEN RSTFILE Macro 

^^■P DLZDSEHO 
1 f Work file 
BALR generator 

^■■■P GET Macro 
^■■B PUT Macro 
i|HM CLOSE Macro 


1 SCDDSEHO 1 


DSEHADDS 


AOPENWRK 


L J 

RSTFILE 


AWRKDSEH 


AWORKFIL 








PSTADDR RSTSAVE 


I A (PST) j 1 registers | 












r PCB 


















1 DBPCBPRO 1 


1 A (PCB) 1 1 PSTPCT1 1 


JCB 


PCB SDB 


|jCBSTOR3 1 


) DBPCBJCB 1 


SDBPHYCD 


SDB 




SDBLEN 






|SDBF3 1 


JCBSDB1 






JCBSDBND 










1 








— 







s, 

i 





Routine 


Label 


18. Save the segment code of the last 
segment. The number of GN calls 
to make to get to the last segment 
is in R9. 




GNLOOP 


19. If a work file (for logical relationships 
or secondary indices) was being 
created during the reload, the 
partially created work file should be 
submitted as input to the restarted 
job assigned as SYSOIO with a file 
name of RSTFILE. 




SETWKFIL 
RSTOPEN 


Write DLZ376I invaUd device 






assignment. 






20. Now that Reload Restart processing 
is complete, set the processing 
options to indicate that a load is in 
process. Then resume processing as 
usual. 




SETPROPT 


If HISAM, set LS in the PCB. 
Otherwise, set L. 







Extended Description 



DLZURGLO 
Routine 



Save the address of the SDB for 
insert processing if it is for the last 
segment found in JCBST0R3. 



DLZURGLO - HD DB Reload 





Routine 


Label 


21. 




GETLOOP 


22. 10 AREA is the address of the data 
portion of the unload record 
DLZURGUF. 




NOSTAT 


23. Write DLZ301I OPEN error. 






Write DLZ319I 10 error. 






Write DLZ348I invalid return code. 






24. 




STATCOMP 


25. 




LASTCOMP 


26. Write DLZ385I and DLZ384I if 
reload or checkpoint restart are not 
okay. 




EOD 
GOODRUN 


Write DLZ339I if reload is okay, or 






if checkpoint restart is okay. 






If this was RESTART (ULR), reset 
the processing option in the PCB 
back to A. 







Extended Description 



Figure 2-32. 


HD DB Reload (DLZURGLO) (Part 5 of 6) 
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HDUNLD1 
DLZURGUF 






> 21. Read an unload record. If 
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end of file, go to step 21. 
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CALLIST 










A (ASRT) 








DATA BASE 


A (PCB) 






A (lOAREA) 










A (SSA) 






ASMTDLI 










Linkage to DL/I 


return to step 20. 
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/ / 








last statistics record. 
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> 26. Close the input file. 
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Figure 2-32. HD DB Reload (DLZURGLO) (Part 6 of 6) 
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Routine Label 
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mm PROCESS ■ 



27. Close the printer. 



28. Return to DL/I. 



r close Macro 



DLZURGLO - HD DB Reload 



Extended Description 



27. 
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STOPRUN 
NODUMP 
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Figure 2-33. ACB Creation Utility Overview (DLZUACBO) (Part 1 of 3) 




^ 1. Load batch nucleus and establish 
SCD and PST addressability. 



2. Acquire and initialize the 
psbname list control block. 



r=^. 



> 3. Read build cards until EOF. 

^■■P GET Macro 

4. Acquire storage for the userld 
control block. 

^BA GETVIS Macro 

5. Syntax check the build cards. 

> 6. If 'USER ID' parameter is scanned, 
^ get storage for SQL/DS I/O area 

and set up userid control block. 

^HlA GETVIS Macro 

^m^ GETIME Macro 
^|b4 CDLOAD Macro 



DLZUACBO - Create ACB Utility CSECT 



Bctende^Descrigtion 



I PST I 



PST 

JPSTSCDAD i 



JPSTCODEI I 



1. Module identifier (DLZUACBOvmp) is 
defined here. The level format is vmp; 
where 'v' is the version, 'r' is the 
release, 'n' is an additional identifica- 
tion number, and 'p' is the latest 

PTF number that has been applied. 
The time and date are required for the 
report heading to DLZUACBO 
messages and control statements that 
are printed as this utility executes. 

2. The parameter list for OPENSRCH. 
is passed in Rl . 

OPENSRCH returns the address of the 
list control block in Rl , which is then 
put in the parameter list for INSRCH. 
Write DLZ905I if GETVIS error 
returned from OPENSRCH. 



READCARD 
GETT 



Extended Description 



DLZUACBO 

Routine 



4. The length of storage needed 
(USERIDLN) is passed in RO. 
Write DLZ578I if GETVIS error. 

5. Write DLZ588I for an invalid 
delimiter, label, opcode, block type, 
parameter, operand, continuation, 
or invalid format. The output 
device is set at this time (SYSLINK 
or SYSPCH). 

If OUT=LINK was specified in the 
build card, SYSLINK is indicated in 
the PST. 

6. The length of storage needed 
(PSBIOLEN) is passed in RO. 
Write DLZ578I if GETVIS error. 
Modules DLZDLBPP and DLZDLBDP 
are loaded. 

Write DLZ574I if CDLOAD error. 




PROCUSER 



Figure 2-33. 


ACB Creation Utility Overview/ (DLZUACBO) (Part 2 of 3) 
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> 7. Add valid psbnames to the list 
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DLZUSCHO 




INSRCH entry 
point 2-33.1 

step 4 


^List 




A (list Ctrl btk) 






A (psbname) 


y 8. Check that SYSPCH or SYSLNK is 
assigned and open the device. 






PST 








I PSTC0DE1 
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BLDLCBAD 


build list entries, getting 










I A (List Ctrl bile) | 








1 PSTPSB 1 




PST SCD 


Builder. 






1 PSTSCDAD 1 JSCDDLIPS | 
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SCHCTLBK 
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1 SCHFGRP 








Rl 
^A(List) 1 




> 10. Move a psbname from a build list 
entry to the PDIR and go to 
build and write blocks. 




SCHGROUP BLDDLTEN -, 
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SCHGRPCT 


J ENTRYNM | 










PST 




SCHENTRS 




USERIDCB 






BALR 


DLZDLBLO 
















Block Builder 
Routine 

2-33.2 


















^ 11. Write completion message. 


Ientrynm 1 


■; 


BALR 






PST SCHGROUP "" 


DLZLBLMO 




Message Writer 
2-33.30 


^ 12. Return to step 10 for next 




1 PSTPSB 1 ISCHNGRP | 


are no more psbnames. 
13. Free SQL/DS I/O area and 




DLZDLBL4 
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"1 storage. 
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FREEVIS Macro 
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DLZUACBO - Create ACB Utility Csect 







Label 


7. The psbnames from the PSB=operand 
are passed one at a time to INSRCH. 
The parameter list for INSRCH is 
passed in Rl. 

Write DLZ905I if GETVIS error 
returned from INSRCH or DLZ571I 
warning message if a duplicate 
psbname is found. 

8. 




CARDEOF 
OPEN 









10. PSTERCOD is examined to see if any 
errors were posted by the Block 
Builder. If not zero, issue message 
DLZ587I to indicate the PSB will not 
be built and go to step 12 to attempt 
to build remaining blocks. 




BLDGROUP 
CALLBB 


1 1 . The completion message is normal 
unless a non-zero return code is 
found from DLZDLBLO. 






Write DLZ589I to indicate processing 
specified. 






12. 




NXTPSB 


13. 




BLDDONE 
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Figure 2-33. ACB Creation Utility Overview (DLZUACBO) (Part 3 of 3) 
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Ipstcodei I 



^ 14. Return to step 10 for each build 
list entry until there are no 
more psbnames. 

15. Free the psbname list control 
block. 



CLOSESCH entry 

point 

2-33.1 
step 8 



16. Close files and exit. 



.^ i A (List control bik) 




DLZUACBO - Create ACB Utility Csect 
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Binary Search Insert Routine (DLZUSCHO) (Part 1 of 2) 
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WtM ^ OPENSRCH Entry Point 
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Caller 
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control block, including one 
group control block. 

fllH^ GETVIS Macro 
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Registers 
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entry length 


ENTLNGTH 


offset to 


l> 2. Initialize the list and arouo 
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COMPLOC 




control blocks. 
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ENTBLKSZ 
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CHAINLOC 




CHBACK 
















R1 R15 




SAVE 
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From 

Figure 2-33 
Steps 
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1^ INSRCH Entry Point 

^ 4. If the psbname already has a 


Figure 2-33 
Step 2 


JSAVE 1 1 Return Code | 
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» List 






A (SAVE) 




A (psbname) 


SAVE 
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SAVE 






HSA 


Registers 




ENTLNGTH 


ENTBLK 




build list, set R15=8, then ' 




> LSA 








CHAIN 

ENTBLKBL 


go to step 7. 




ENTLOC 


COMPLNG 






NUMENT 
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DLZUSCHO - ACB Maintenance Binary Search Insert Routine 





Routine 


Label 


1. Module identifier is defined here. 
Length acquired is X'80' bytes. One 
group control block will hold 16 build 
list entries. 


DLZUSCHO 


DLZUSCHO 
OPENSRCH 


2. Block now contains information 
needed to build a group control 
block. The first (or only) block is 
obtained before the first actual insert. 






3. The address of the created block is 
returned to the caller. 






Note: This routine is very generalized 
and could be used for other purposes, 
but it is only used by DLZUACBO to 
build the psbname build list control 
block. 






4. Routine identifier (INSRCH. .) is 
defined here. 


INSRCH 


INSRCH 
INSRTl 




Figure 2-33.1. 










ENTBLK SAVE 
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1 1 


> b. If no room for new build list , 


^ 1 INTBLK 


II 




entry, issue GETVIS for a new 
group control block, chaining it 
to any previous blocks. 

^■^B GETVIS Macro 




ENCNT 
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CHAIN 






BKCHAIN 










SAVE 




CHBACK 1 
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> b. Insert new entry in collating 
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ENTLNGTH 
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1 ENCNT 




Control BIk 
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NUMENT 
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ENTLOC 


1 NUMENT 
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>R1 R15 








SAVb ^.„„, > /. Return to caller witn return 
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|HSA| f 


jeaisters 


Figure 2-33 
Step 11 


code in R15. 

|A CLOSESCH Entry Point 


Figure 2-33 
Step 5 


|a (entry) | | return code | 


[ 


'S Caller 
V^ Registers 






R1 


^ 8. Free all group control blocks _, 




lA(listctrlblk) , .J 


and then the list control block. 

JlHJB FREEVIS Macro 
^■■^ FREEVIS Macro 

> 9. Return to caller. 


Figure 2-33 
Step 11 














Reaiste 


^ 













I 

s. 
S 





Routine 


Label 


5. There is enough room for 16 entries 


INSRCH 


NOTFND 


in a group control block. 






6. 




MVDK 


7. 




NOGO 


8. Routine identifier (CLOSESCH) is 


CLOSESCH 


CLOSESCH 


defined here. All group control blocks 






can be found beginning from the Ust 






control block. 
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■a INPUT 1^— i 



Block Builder Routine 1 (DLZDLBLO) 
PROCESS — 






► 1. Acquire storage for PSB specified, ] 
load, and convert it. 



2. If building utility PSB go to step 4. 

3. If DL/I SQL/DS tables are to be built: 

A. Move userid control block information 
to common area. 

B. Go build PSB SQL/DS tables. 



DLZDLBPP 



4. Build temporary DDIR entries for all 
data bases directly identified in the PSB. 



5. Calculate and acquire storage needed 
for SDBs, etc. 



6. Point to first PCB to be built. 
> 7. Initialize PCB. 



8. Build SDBs for PCB. 



9. Loop to step 5 through all PCBs for PSB. 



> PSB 

11 1 



> DLZDLBL4 



DLZDLBLO - Block Builder Routine 1 



Extended Description 


Routine 


Label 


1. 




PSBPASS 


7. 




PSBPASSl 
BLDPCB 


8. Only those SDBs for segments directly 
referenced by SENFLDs are built at this 
time. Generated SDBs will be buUt in 
DLZDLBLl. 




PSBPASS3 





Routine 


Label 









Figure 2-33.3. Block Builder Routine 2 (DLZDLBLl) 

m INPUT aH^BM^Ma—H^ ■■ PROCESS — 



DUMDDIRB 



PREFIX SEGTAB 



FLDTAB LCHILD 



SORTAB INDEXTAB 



COMPRESSION CSECT 



^ 1. Get first temporary DDIR address. 



L^. 



SOB 


SEGTAB 
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II 
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SORTAB 


PSDB 




1 II 1 


FOB 


DDIR 
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II 


1 


EXTDBD 

1 


SEC 
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n 



2. If DMB already built for DDIR entry, go 
to step 5. 



3. Load the DBD. 



> 4. Build the DMB. 



> 5. If any unprocessed SDBs exist for this 
DDIR entry, process them. 



6. If any DDIRs remain to be processed, get 
next and go to step 2. 



a 



0LZDLBL1 - Block Builder Routine 2 



Extended Description 


Routine 


Label 


2. The DBD address is reset from the DMB 
Name Table. 




DMBPASSl 


3. Any DBDs referenced by this DBD are 
added to the dummy DDIR list. 




DMBPASS2 


4. A. If the DBD is for an index data base, 
the DDIR entry for the target data 
base is located and processed first. 




DMBPASS3 


B. No DMB is built for logical DBDs. 






5. A. SDBs pointing to VLC or logical 
segments are reset to point to the 
physical segment PSDB. 




DMBPASS8 


B. All generated SDBs are built here. 






6. If additional SDBs were chained to a 
prior DDIR during step 5, return to that 
DDIR, and go to step 2. 




DMBPASS9 



■ OUTPUT — 




DBD 
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> SDB 
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Figure 2-33.4 DL/I Documentation Aid PSB Processing (DLZDLBPP) (Part 1 of 4) 



R13 


1 DLZDLBL4 | 


( 

V DLZDLBL4 
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p PROCESS-i— a^— «->-i 
From Figure 2-33.2 step 1 



1 . Save DLZDLBLO registers and set 
up addressability to LPSBD and 
PSBSQLIO. 



2. Get storage for SQLDSECT, and 
get addressability to it. 

^■■^^ GETVIS Macro 



3. Get storage for SQLCA and get 
addressability to it. 

^taj^^ GETVIS Macro 



4. If SQL/DS not connected, 
CONNECT to SQL/DS. 



O 



^ 



R3 


1 LPSBD 1 


R4 


1 PSBSQLIO 1 




R9 


1 SQLDSECT 1 


R5 


1 SQLCA 1 


DLZDLBL4 


1 USRFLAGS 1 



DLZDLBPP - DL/I Documentation Aid 

Extended Description Routine 



Extended Description 



1. 

2. SQLDSECT is used by 
SQL/DS. The size of 
storage needed is in 

RO. Address of storage is 
saved in PSQLDSCT in 
common area. 

Write DLZ577I if GETVIS 

3. SQLCA is SQL/DS 
communication area. The 
size of storage needed is 
LENSQLCA and passed in 
Register 0. Address of 
storage is saved in 
ADRSQLCA in common 
area. 

4. On all calls to SQL/DS if 
negative return code is 
returned, write DLZ575I 
and DLZ576L 


DLZDLBPP 


DLZDLBPP 
DOSQLCON 



Figure 2-33.4 DL/I Documentation Aid PSB Processing (DLZDLBPP) (Part 2 of 4) 
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4. Create the PSBBASIC record and 


_^ 




insert into PSBBASICDATA 
SQL/DS table. 








BAL 
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5. Create the PSBPCB record for each 






PCB in this PSB and insert them 
into the SQL/DS PSBPCBDATA 
table. 








BAL 


PSBPCB 
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DLZDLBPP - DL/I Documentation Aid 

Extended Description Routine 



4. If SQL/DS tables already 
exist for this PSB name, 
DELETES are issued 
against the 
PSBBASICDATA, 
PSBPCBDATA, 
PSBSEGMENTDATA and 
PSBFIELDDATA tables to 
delete all records 
associated with the PSB 
name. The new 
PSBBASICDATA table is 
inserted. 

5. AU PCB information is put 
in record. The Database 
Reference Table is stepped 
through and a procseq is 
picked up if that entry 
points to the current PCB. 
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Label 
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Figure 2-33.4 DL/I Documentation Aid PSB Processing (DLZDLBPP) (Part 3 of 4) 
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1 LPSBCODE 1 



















6. Create the PSBSEGMENT record 


•"^ 


for each segment In this PSB and 
insert them into the SQL/DS 
PSBSEGIVIENTDATA table. 






BAL 


PSBSEG 




2-33.7 


7. If PSB is not field level sensitive, 
go to step 9. 





p OUTPUT ■ 



DLZDLBPP - DL/I Documentation Aid 

Extended Description Routine 



6. All segment information is 
put into the record at this 
time. 







Extended Description 


Routine 


Label 









Figure 2-33.4 DL/i Documentation Aid PSB Processing (DLZDLBPP) (Part 4 of 4) 
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1 FLSLSTAD | 





:> 



8. Create the PSBFIELD record for 
each field in the PSB and insert 
them into the SQL/DS 
PSBFIELDDATA table. 



9. Callers registers are restored. 



— > 


PSBSQLIO 


Return to 

Figure 

2-33.2 
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DLZDLBPP - DL/i Documentation Aid 



Extended Description 



8. Addressability is achieved 
for each FSB in the PSB 
and a call is made one at a 
time to PSBFIELD to 
process the FIELD 
information. 

9. Write DLZ577I if 
FREEVIS Error. 


DLZDLBPP 


FREESQLD 
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Figure 2-33.5 PSBBASIC Processing (DLZDLBPP) (Part 1 of 2) 
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From Figure 2-33.4 



1 . Set PSB name host variabie. 



2. Set Language host variable. 



3. If PSBBASICDATA record does not 
exist for PSB name, go to step 5. 



4. Delete records from 

PSBBASICDATA, PSBPCBDATA, 
PSBSEGMENTDATA, 
PSBFIELDDATA for the PSB name. 



DLZDLBPP - DL/I DocuiMntation Aid 



Extended Description 



PSBSQUO 

















1. 

3. CREATEDATE and 
CREATEUSER are 
selected if the record is 

creation information. 


PSBBASIC 


PSBBASIC 
PSBBASl 
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Routine 


Label 









Figure 2-33.5 PSBBASIC Processing (DLZDLBPP) (Part 2 of 2) 



5. Insert PSBBASIC record into the 
PSBBASICDATA table. 



^ EXECSQUDS 



^ PS8SQUDS 
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Figure 2-33.6 PSBPCB Processing (DLZDLBPP) (Part 1 of 2) 
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P INPUT- 



p PROCESS wa^^^tm^^^mm^mmm 
From Figure 2-33.4 
1 . Set PCS number host variable. 



2. Set DBTYPE host variable to 'DB'. 



3. Set DBD name host variable. 



4. Set PCB processing option host 
variable. 



5. Set Key length host variable. 



PSBSQLIO 
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Extended Description Routine 



Extended Description 


Routine 


Label 









Figure 2-33.6 PSBPCB Processing (DLZDLBPP) (Part 2 of 2) 



DBPCB 


' > 

> 

> 


I DBPCBIVIKL 1 


PSBDBREF 


1 1 


PSBDBREF 




«> 
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6. Set Positioning host variable. 



7. Search Database Reference Table 
for Secondary Index for this PCB. 
If not there set indicator variable 
to null and go to step 5. 

8. Set Secondary Index host variable. 



9. Insert PSBPCB record into the 
PSBBASICDATA table. 



Figure 
2-33.4 



PSB SQL/DS 
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Extended Description 



7. If index is there, entry 
points to PCB address. 

8. 




TPROCSEQ 
FOUNDIND 
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Figure 2-33.7 PSBSEGMENT Processing (DLZDLBPP) (Part 1 of 2) 



Figure 2-33.7 PSBSEGMENT Processing (DLZDLBPP) (Part 2 of 2) 



r INPUT- 



I PSBSGNAM I 



I PSBSGPRO 



PROCESS — i— - 
From Figure 2-33.4 



1. Set PCB number host variable. 



2. Set Segment number host variable. 



3. Set Segment name host variable. 



4. If parent does not exist, set 

indicator variable to null and go to 
step 6. 



5. Index to parent and set parent 
host variable. 



6. Set processing option host 
variable. 
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5. 
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PSBSEG 
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7. Insert PSBSEGMENT record into 
PSBSEGMENTDATA table. 
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2-33.8 PSBFIELD Proceuing (DLZDLBPPI (Part 1 of 3) 



p INPUT • 



r PROCESS • 
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From Figure 2-33.4 

1. Set PCB number host variable. 

2. Set Segment number host variable. 

3. Set Segment name host variable. 

4. Set Field number host variable. 

5. Set Field name host variable. 

6. Set length host variable. 



IP 



OUTPUT I 
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Extended Description 



1. 

6. Length is incremented by 
one to get true length. 


PSBFIELD 


PSBFffiLD 




Figure 2-33.8 PSBFIELD Procetaing (DLZDLBPf) (Part 2 of 3) 
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by a field name, the 
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defined field is retrieved 






and stored in POSNAME; 






otherwise the position, if 
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Figure 2-33.8 PSBFIELD Processing (DLZDLBPP) (Part 3 of 3) 
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11. Set Replace indicator variable to 
null. If no initial value, set 
indicator variables to null and go 
to step 14. 



12. Set initial value host variable 
according to length and 
truncating according to data 
type. Go to step 14. 
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DLZDLBPP - DL/I Documentation Aid 



Extended Description 



12. All initial values are 
picked up from the initial 
value table according to 
BYTES. Character values 
are truncated to 254 
bytes. Hex values are 
truncated to 4 bytes. 
Packed decimal values are 
truncated to 8 bytes. 
Zoned decimal values are 
truncated to 15 bytes. All 
floating point values are 
converted to 8 bytes. 

13. Write messages DLZ575I 
and DLZ576I if SQL/DS 
error occurs. 
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Figure 2-33.9 Field Exit Routine Processing (DLZDLBPP) 
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Extended Description 



1. Message DLZ926I is 
issued if FER not found. 
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Figure 2-33.10. Block Builder BLDDMB Routine (DLZDLBL1) 
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DL2DLBL1 - Block Builder Routine 2 



> 1. Get and initialize storage for DMB. 



_> 2. Build PSDBs, FDBs, Secondary Lists, and 
^^ Compression CSECTs for each segment. 



> 3. Process enqueued Secondary Lists; build 
»9gment concatenated key table; and 
initialize subsequence source, or search 
secondary lists. 



,^T> 4. If building utility psb, go to step 6. 



_ 5. If DL/I-SQL/DS tables are 

> to be built go build DBD tables. 



> 6. Move in DTF(s) or ACB. 
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BLDDMB 


2. UntU the concatenated key table is built, 
all secondary lists are enqueued on the 
DDIR and will be buUt during step 3. 
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Figure 2-33.11. Block Builder BLDSDB Routine (DLZDLBL1) (Part 1 of 2) 
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1. If no more SDBs, return to caller. 



2. Find matching physical segment table 
entry. 



3. If segment has source, repoint SDB to 
new PSDB. Go to step 1; 



4. If segment is a logical child, build 
generated SDB chain. 



5. If SDB is a generated SDB for a logical 
parent or the target of an alternate 
sequence index, and no generated parent 
chain exists, build one. 



6. Set ACB number, physical segment 
code, key field length, PSDB address, 
and next SDB to PSDB address. 
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Figure 2-33.11. Block Builder BLDSDB Routine (DLZDLBL1) (Part 2 of 2) 
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2. Output message DLZ9 121 if not 
found. 




BLDSDBI 


3. If source is in another DBD, the SDB 
to be processed is the next one for 
this DBD. Otherwise, process the 
original with the new segment name. 




BLDSDB3 


4. If segment is a normal logical child, 
the logical parent SDB is generated 
and flagged to cause generation of 
the parent chain when the LP is 
processed. All generated SDBs are 
chained to the DDIRs for the related 
data bases. 
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^i Figure 2-33.12. Block Builder Routine 3 (DLZDLBL2) (Part 1 of 2) 
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any, is initialized. 
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Figure 2-33.13. Block Builder BLDSDB Routine (DLZDLBL2) 
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t) 2. Set SDB parentage flags. 



l) 4. Build intent list entry. 



1. If segment is field sensitive, build SDB 
expansion and FSBs. 
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3. Maximums set are: 

a. Maximum segment length in 
either physical or user's view. 

b. Maximum concatenated key 
length. 

c. Maximum concatenated segment 
length. 

d. Longest segment at this level and 
path sensitive. 
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b. All intent propagation is done 
here. 
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5. Fill in the generated index SDB for 
HIDAM primary indexes or alternate 
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Figure 2-33.14. Block Builder Routine 4 (DLZDLBL3) (Part 1 of 2) 



Figure 2-33.14. Block Builder Routine 4 (DLZDLBL3) (Part 2 of 2) 
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segment compression work area, and 
I/O work area 
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FREEVIS successful. 
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fails. 
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DLZDLBL3 - Block Builder Routine 4 



9. Search DMBNAME table for DMB that 
needs a utility PSB. Go to Step 1 1 if 
none. 

10. Build utility PSB. 
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DLZDPSBO 
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11. Go to PSBPASS in module DLZDLBLO 
(Step 1., Figure 2-33.2) to process utility 
PSB just built. 

12. Free DBD storage. 
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HIDAM, HDAM, and secondary 
index DMB just outputted. 




UTILPSB 


10. The dmbname is moved to the 
psbname location and a suffix 'u' 
added. The no utility PSB required 
indicator is turned on at DTABFLAG 
so we don't try to build another 
utility PSB for this DBD the next 
time around. Return to Step 9 to 
build the PSB. The output of 
DLZDPSBO is like PSBGEN output. 
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if not. 
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Figure 2-33.15. Acquire Storage Routine (DLZDLBLO) 
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1. Write message DLZ905I if GETVIS 
space is not available. 

2. If this is a storage request for a DBD, 
the storage is chained off at 
ADDRDBD rather than ADDRC. 
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Figure 2-33.16. intent Propagation Routine (DLZDLBAO) (Part 1 of 2) 
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1. Set read only or exclusive 
intent for entry SDB. 
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2. Set update intent for entry SDB 
and its target if either is 
replace sensitive. 



Build PSIL 
Routine 
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. — >. 3. Check for necessary intent 
propagation. Skip to Step 7 
if entry SDB is not ISRT/DLET 
sensitive. 



> 4. If ISRT sensitive, skip to 
Step 6. 
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Extended Description 



1. This routine propagates intent to all 
PSDBs related or dependent on the 
PSDB for the entry SDB. Only SDBs 
that are built directly from SENSEG 
statements in the associated PSB are 
passed to this routine. 

For a process option (PROCOPT) of 
G, the entry SDB and all targets are 
set to exclusive. For E PROCOPT, 
the entry SDB and its immediate 
target are checked for key sensitivity. 
If the SDB is data sensitive, the intent 
is set to exclusive. Otherwise, no 
intent is set. 
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Figure 2-33.16. Intent Propagation Routine (DLZDLBAO) (Part 2 of 2) 
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5. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for D PROCOPT. 
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6. Process the entry PSDB and all 
necessary related and dependent 
PSDBs for I PROCOPT. 



> LIMITAB 
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Routine 
2-33.17 



7. Return to caller. 



FREEVIS Macro 
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DLZDLBAO - Intent Propagation CSECT 
Extended Description 



5. Any intent set will be update type. 
Storage is acquired for a Umit table 
and is constructed with PSDB 
addresses. These addresses show 
children of the entry PSDB, any 
necessary higher related PSDBs, any 
index relationships, any logical 
children, the logical parent, physical 
parent, and physical pair of the entry 
PSDB. After the table is constructed, 
each entry is passed to SETNT to set 
update intent and the table area is 
freed. Exclusive intent is propagated 
along with delete. 

6. Any intent set will be update type. 
A limit table is constructed with 
addresses of those PSDBs that will 
be passed to SETNT. 

It is also determined if the entry SDB 
can insert its logical parent or physical 
parent as a resuU of a concatenated 
segment defmition. If it can, the 
logical parent or physical parent is 
processed in the same manner as the 
entry PSDB. The physical pair is also 
processed if one exists. 
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After processing the UMITAB 
entries built, the area is freed. 

7. Set the return code and make sure 
all the limit tables are freed. 
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Figure 2-33.17. Build PSIL Routine (DLZDLBAO) 
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Figure 2-33.18. Write DIVIBs (DLZUAMBO) (Part 1 of 2) 
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to offsets from DMB start. 



3. Change DDIR addresses in the 
secondary lists to relative DMB 
numbers as to where the DMB 
entry is in the DMB reference 
list. 



4. Return to Step 2 to process the 
next PSDB if there is one. 



5. Move old DMB to new DMB. 
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Figure 2-33.18. Write DMBs (DLZUAMBO) (Part 2 of 2) 
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7. Write DMB to SYSLNK or SYSPCH. 



8. Free the new DMB storage and 
return to Step 1 to process the 
next DDIR if there is one. 
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1. Process all DMBs referenced in DDIR 
entries unless already built or 
LOGICAL. 




DDIR2SC2 


Write message DLZ905I for GETVIS 






error. 






2. The compression CSECTs and index 
maintenance CSECTs are moved to the 
new DMB. 




DMBREL 


Write message DLZ570I for an invalid 
SEC list code found in a DMB. 






3. The reference list is the last part of 
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DLZTAPE or DLZDISKI and 
DLZDISKO. 
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Figure 2-33.19. Write PSB (DLZUAMBO 
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1. The size calculation formula is 

PSBPST - PSBXIOWK - PSBSEGWK 
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Figure 2-33.20. Build PSB (DLZDPSBO) (Part 1 of 2) 
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Figure 2-33. 20. Build PSB (DLZDPSBO) (Part 2 of 2) 
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size. 
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Extended Description 
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1. Routine identifier DLZDPSBO vrnp is 
defined here. A parameter list con- 
taining DBD address is passed in 
Register 1 . The contents of this DBD 
are used to create the utility PSB. 


DLZDPSBO 


DLZDPSBO 
INIT 


The PSBGEN, size will be the fixed 
size plus the number of segments 
times the length of SENSEG entry. 






It is possible to have an invaUd access 
method error to pass back to 
DLZDLBLO. 






2. The result will be stored in PSB 
Prefix. 




SEGLOOP 
GETKEYSZ 


3. The area is also cleared to zeros. 
Write message DLZ905I for GETVIS 




USECURRl 
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4. PROCOPT of 'A' is set in PCB for 
all DBDs except secondary index 
where 'LS' is set. The 'A' is changed 
to the proper 'load' by batch initiaUza- 
tion if necessary. 

5. Same PROCOPT as in Note 4. 

6. In addition, no SORTAB is indicated. 

7. The address of the buiU utiUty PSB 
is returned to the caller in the 
parameter list. 


DLZDPSBO 
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SETDBREF 
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Figure 2-33.21 DL/I Documentation Aid l\/lainline Routine (DLZDLBDP) (Part 1 of 9) 
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1 . Initialize base register. 



2. Set SQL/DS error exit to 
ERROR575. 



EXEC SOL/DS 



3. Do initialization for DBD 
processing. 



4. If storage acquired for SQL/DS 
Interface Control Block, go to 
step 6. 



5. Get storage for SQL/DS Interface 
Control Block. 
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SQLERROR issued. No 






code is generated by diis 






statement, it is handled at 






SQL/DS PREP time. If an 






error should occur during 






SQL/DS processing, exit is 
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ERROR575, to process 






message DLZ575I and 






DLZ576L 






5. SQLDSECT is used to 






handle requests by 






SQL/DS. The storage size 






needed is in SQLDSIZ. If 






an error occurs on the 






GETVIS request, exit is 






taken to routine 






ERROR578, to process 






message DLZ578L 
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6. Create the DBD Basic Data record 
and insert into the 
DBDBASICDATA SQL/DS table. 



7. If access method is not HDAM or 
HIDAM, go to step 9. 
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EXEC SQL DELETES are 
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DBDACCESSDATA, 






DBDSEGMENTDATA, 






DBDLCHILDDATA, and 






DBDFIELDDATA tables 






to delete all entries 






associated with the 






DBDNAME. The new 






DBD Basic Data record is 






inserted. 
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Figure 2-33.21 DL/I Documentation Aid IVtainline Routine (DLZDLBDP) (Part 3 of 9) 
p INPUT^^— ^— ^— ^ P PROCESS 



DBDDSECT 



8. Create the DBD Access Data 
record for the Primary Index and 
insert into the DBDACCESSDATA 
SQL/DS table. 



9. If access method is not equal to 
HDAM, HIDAM, or INDEX, go to 
step 15. 



OUTPUT ■ 
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Extended Description 




Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 4 of 9) 



^1 10. Get address of the segment 
table. 



1 1 . Get number of segments for 
current DBD. 



PROCESS I 



12. If access method is not equal to 
INDEX, to to step 14. 



13. Get number of LCHILD entries for 
this segment. 
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Figure 2-33.21 DL/I Documentation Aid IVIainline Routine (DLZDLBDP) (Part 5 of 9) 
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14. Create tlie DBD Access Data 
records for the Secondary 
Indexes and insert into the 
DBDACCESSDATA SQL/DS table. 



15. Get address of the segment 
table. 



16. Get number of segments for 
current DBD. 
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Extended Description 



14. The DBD Access Data 
record is created from the 
ACCESS or 

LCHILD/XDFLD macro 
definitions stored in the 
DL/I DBDGEN Control 
Blocks. It is then inserted 
into the 

DBDACCESSDATA 
SQL/DS table. 
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Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 6 of 9) 
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17. Create the DBD Segment Data 
records and insert them into the 
DBDSEGMENTDATA SQL/DS 
table. 



18. If access method is not HDAM or 
HIDAM, goto step 21. 
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Extended Description 



17. The DBD Segment Data 
records are created from 
the SEGM macro 

DL/I DBDGEN Control 
Blocks. They are then 
inserted into the 
DBDSEGMENTDATA 
SQL/DS table. 

18. 




DOLCHILD 
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Figure 2-33.21 DL/I Documentation Aid IVIainiine Routine (DLZDLBDP) (Part 7 of 9) 
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19. Get address of the segment 
table. 



20. Create the DBD LCHILD Data 
records for the logical 
relationships and insert them into 
DBDLCHILDDATA SQL/DS table. 



21 . If access method is logical, go to 
step 25. 



22. Get address of the segment 
table. 



m OUTPUT 1 
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Control Blocks. They are then 
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DBDLCHILDDATA SQL/DS 






table. 
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table. 
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25. If this is not the last DDIR entry 
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26. Do initialization for SQL/DS | 
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Extended Description 



24. The DBD Field Data 
records are created from 
the FIELD macro 
definitions stored in the 
DL/I DBDGEN Control 
Blocks. They are then 
inserted into the 
DBDFIELDDATA 
SQL/DS table. 

25. 




LASTDDIR 



Extended Descripti 




i 



^^^ 



O 






o 



o 



o 



o 






I 



% 

a 



Figure 2-33.21 DL/I Documentation Aid Mainline Routine (DLZDLBDP) (Part 9 of 9) 
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27. Commit data to SQL/DS tables. 

^^■^ EXEC SQL/DS 

28. Restore DLZDLBL1 registers. 

29. Return to DLZDLBL1. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 1 of 10) 
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1 . Initialize base register. 



2. Save return linkage register. 



3. Clear host and indicator variable 
area. 



4. Set IMS compatibility processing. 



5. Based on access method indicator, 
set DBD name host variable. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 2 of 10) 
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Extended Description 
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If an access method 
indicator is not found, exit 
is taken to routine ERR926 



DBDBASIC 
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6. If access method is HDAM: 

a. Set anchor points, control 
interval, and record limit host 
variables. 

b. Go to step 8. 



7. Set anchor points, control interval, 
and record insert limit indicator 
variables to null. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 3 of 10) 



8. If access method is LOGICAL: 



Set filename and device 
indicator variables to null. 



b. Go to step 10. 



9. Set filename and device host 
variables. 



10. If access method is HDAM or 
HIDAM: 

a. Set blocking factor and 
cylinder scan host variables. 

b. Set free space host variables. 

c. Go to step 14. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 4 of 10) 
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11. If access method is HISAM. 
SHISAM, or INDEX: 

a. Set blocking factor host 
variable. 

b. Go to step 13. 



12. Set blocking factor indicator 
variable to null. 



13. Set cylinder scan and free space 
indicator variables to null. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 5 of 10) 



14. If access method is HiSAM: 



a. Set biocl(ing factor host 
variable. 



b. Set overflow filename host 
variable. 



c. Go to step 16. 



15. Set blocking factor and overflow 
filename indicator variable to null. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 6 of 10) 



16. If access method is HDAM, 
HIDAM, or LOGICAL: 



Set record length indicator 
variable to null. 



b. Go to step 18. 



17. Set prime/input record length 
host variable. 



18. If access method is HISAM, 
HSAM, or SHSAM: 

a. Set ESDS/output record 
length host variable. 

b. Go to step 20. 



19. Set ESDS/output record length 
indicator variable to null. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 7 of 10) 
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If access method is HSAIM or 
SHSAIVI: 



Set output filename host 
variable. 



b. If device is tape: 



Set logical unit address 
host variables. 



2. Go to step 22. 



Set logical unit address 
indicator variables to null. 



d. Go to step 22. 



21. Set output filename and logical 
unit address indicator variables to 
null. 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 8 of 10) 
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22. Select the create date and create 
user information from 
DBDBASICDATA SQL/DS table 
based on current DBD name. 

^tal^ EXEC SQL/DS 



23. If SELECT request was 
successful: 

a. Delete all entries from 
DBDBASICDATA SQL/DS 
table for current DBD name. 



EXEC SOL/DS 

Delete all entries from 
DBDACCESSDATA SQL/DS 
table for current DBD name. 

^■■^^ EXEC SQL/DS 



DLZDLBDP - DL/I Documentation Aid for DBD Data 



Extended Description 



f OUTPUT"^— 

^ DBDSQUO 



i 




to 

I 



Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 9 of 10) 
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Delete all entries from 
DBDSEGIMENTDATA SQL/DS 
table for current DBD name. 



d. Delete all entries from 
DBDLCHILDDATA SQL/DS 
table for current DBD name. 

^^■^ EXEC SQL/DS 



Delete all entries from 
DBDFIELDDATA SQL/DS 
table for current DBD name. 

^■1^^ EXEC SQL/DS 
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Figure 2-33.22 Create DBDBASICDATA Record (DLZDLBDP) (Part 10 of 10) 
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24. Insert DBD Basic Data record into 
the DBDBASICDATA SQL/DS 



^ EXEC SQL/DS 



25. Return to caller (BR R14). 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 1 of 5) 






1 . Initialize base register. 



2. Save return linkage register. 



3. Clear host and indicator variable 



4. Set segment name host variable. 



5. If access method is HDAM: 



a. Set randomizing module name 
host variable. 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 2 of 5) 



b. Set index data base name, 
pointer and segment name 
indicator variables to null. 

c. Go to step 1 1 . 



6. Set randomizing module name 
indicator variable to null. 



7. Set index pointer host variable to 
INDX'. 



8. Set index segment name host 
variable. 



9. Set index data base name host 
variable. 



10. Update to next LCHILD entry and 
subtract one from number of 
LCHILD entries. 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 3 
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11. Get addressability to the field 
table (FLDTAB). 



12. If field is a sequence field: 



a. Set sequence field host 
variable. 



b. If access method is HDAM: 



1 . If duplicate sequence 
field: 



a. Set sequence value 
to 'DUPLICATE'. 



DLZDLBDP - DL/I Documentation Aid for DBD Data 



Extended Description 



12.a. 
ll.b.l.a. 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 4 of 5) 



r INPUT- 



c. Set sequence value 
to UNIQUE'. 



d. Go to step 15. 



c. Set sequence value indicator 
variable to null. 



d. Go to step 15. 



13. If last field table entry: 



a. Go issue error message 
DLZ926i and exit. 



14. Update to next field table entry, 
go to step 1 2. 



1 5. Set all other indicator variables to 
null. 
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Figure 2-33.23 Create DBDACCESSDATA Records for Primary Indexes (DLZDLBDP) (Part 5 of 5) 
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16. Insert the DBD Access Data 
record into tlie 
DBDACCESSDATA SQL/DS table. 

^^Kt^^ EXEC SQL/DS 



17. Return to caller (BR R 14). 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 1 of 9) 



R7 


> 


> 


1 1 


LCHILD 


^5 


1 1 


SEGTAB 




1 1 





r PROCESS -^— — 
1 . Initialize base register. 



2. Save return linkage register. 



3. If no LCHILD entries to be 
processed, go to step 26. 



4. Clear host and indicator variable 
area. 



5. If not indexing segment and if 
indexed segment, go to step 25. 



6. Set segment name host variable. 



7. Set randomizing module name 
indicator variable to null. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 2 of 9) 
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8. Set index database, field, and 
segment name host variables. 



9. If indexing segment: 

a. Set index pointer host 
variable to 'SNGL'. 

b. Set sequence value and index 
source segment name host 
variable to null. 



c. Go to step 1 1 . 



10. Set index pointer host variable to 
INDX'. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 3 of 9) 
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11. If FLDTAB entry field name is not 
equal to LCHILD field name: 

a. Update to next FLDTAB 
entry. 

b. Go to step 1 1 . 



12. Set index source segment name 
host variable. 



13. Get addressability to the DMB 
secondary list. 



14. If this is last index entry: 

a. Set last index entry indicator. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 4 of 9) 



m PROCESS • 



15. If index entry is a suppression list 
entry: 



a. If suppression value is 
specified: 



1 . Convert value to 
printable hex value. 



2. Set suppression value 
host variable. 



3. Go to step 15.C. 



b. Set suppression value 
indicator variable to null. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 5 of 9) 
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If suppression routine name 
specified: 



1 . Set suppression routine 
name host variable. 



2. Go to step 15.e. 



Set suppression routine name 
indicator variable to null. 



Set suppression list entry 
processed. 



16. If index entry is a search field 
entry: 

a. Set search field host 
variables. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 6 of 9) 
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b. Set search field list entry 
processed. 



17. If index entry is a sub-sequence 
field entry: 

a. Set sub-sequence name host 
variables. 

b. Set sub-sequence field list 
entry processed. 



18. If index entry is a duplicate data 
field entry: 

a. Set duplicate data name host 
variables. 

b. Set duplicate data field list 
entry processed. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 7 of 9) 
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19. If no suppression list entry 
specified: 

a. Set suppression value and 
routine name indicator 
variables to null. 



20. If no search field list entry 
specified: 



Set search field indicator 
variables to null. 



21. If no sub-sequence field list entry 
specified: 



a. Set sub-sequence field 
indicator variables to null. 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary Indexes (DLZDLBDP) (Part 8 of 9) 



22. If no duplicate data field list entry 
specified: 



a. Set duplicate data field 
indicator variables to null. 



23. Reset index entry list indicators. 



24. Insert DBD Access Data record 
into the DBDACCESSDATA 
SQL/DS table. 

^^■^^ EXEC SQL/DS 
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Figure 2-33.24 Create DBDACCESSDATA Records for Secondary indexes (DLZDLBDP) (Part 9 of 9) 
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25. If more LCHILD entries to be 
processed: 

a. Update to next LCHILD entry. 

b. Go to step 4. 



26. if more segment entries to be 
processed: 

a. Update to the next SEGTAB 
entry. 

b. Get count of LCHILD entries 
for segment. 



c. Go to step 3. 
27. Return to caller (BR R14). 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 1 of 12) 



1. Initialize base register. 



2. Save return linkage register. 



3. Clear host and indicator variable 
area. 



4. Set segment name, segment code, 
and segment level host variables. 



5. If segment is root segment: 



a. Set segment parent name 
indicator variable to null. 



b. Go to step 7. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 2 of 12) 
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6. Set parent name host variable. 



7. If segment length zero: 

a. Set segment length indicator 
variable to null. 

b. Go to step 9. 



8. Set segment length host variable. 



9. If access method is not HDAM or 
HiDAM: 



a. Set physical child pointer 
indicator variable to null. 



b. Go to step 12. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 3 of 12) 
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10. If parent segment has physical 
child first and last pointers: 

a. Set physical child pointer 
host variable to 'DBLE'. 



b. Go to step 12. 



1 1 . Set physical child pointer host 
variable to 'SNGL'. 



12. If segment is a logical parent: 

a. Set logical parent segment 
name, IMS compatibility, and 
database name host variable. 



b. Go to step 14. 
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Extended Description 



lO.a. 

12. 

12.a. If logical parent pointer 
is not found in the 
LCHILD table, exit is 
taken to ERR926 
routine to process 
message DLZ926I. 




PCPTDBLE 
CKLOGPAR 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 4 of 12) 
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13. Set logical parent name, IMS 

compatibility, and database name 
indicator variable to null. 



14. If variable length segment: 



a. Set minimum segment length 
host variable. 



b; Go to step 16. 



15. Set minimum segment length 
indicator variable to null. 



16. If segment has compression 
routine: 



a. Set compression routine 
name host variable. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 5 of 12) 



r INPUT- 



If initial/termination 
processing specified: 



Set initial/term host 
variable to 'INIT'. 



2. Set IMS compatibility 
host variable to 'D'. 



3. Go to step 18. 



Set initial/term and IMS 
indicator variable to null. 



17. Set compression routine name, 
IMS compatibility, and initial/term 
indicator variables to null. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 6 of 12) 
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18. If access method is HDAM or 
HIDAM: 

a. If physical twin pointers 
specified: 

1 . Set physical twin pointer 
host variable. 

2. Go to step 18.C. 

b. Set physical twin pointer 
indicator variable to null. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 7 of 12) 



If logical twin pointers 
specified. 



Set logical twin pointer 
host variable. 



2. Go to step 20. 



Set logical twin pointer 
indicator variable to null. 



e. Go to step 20. 



19. Set physical and logical twin 

pointer indicator variables to null. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 8 of 12) 
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20. If insert rule specified: 

a. Set insert rule host variable. 

b. Go to step 22. 



21. Set insert rule indicator variable 
to null. 



22. If delete rule specified: 

a. Set delete rule host variable. 

b. Go to step 24. 



23. Set delete rule indicator variable 
to null. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 9 of 12) 
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24. If replace rule specified: 

a. Set replace rule liost variable. 

b. Go to step 26. 



25. Set replace rule indicator variable 
to null. 



26. If physical insert rules specified: 



a. Set physical insert rule host 
variable. 



b. Go to step 28. 



27. Set physical rule indicator 
variable to null. 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 10 of 12) 
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28. If source segment name 
specified: 

a. Set 1st source segment name 
host variable. 

b. Set IMS compatibility host 
variable to 'D'. 

c. Set source segment DBD 
name host variable. 

d. if 2nd source segment name 
specified: 

1 . Set 2nd source segment 
name host variable. 

2. Set IMS compatibility 
host variable to 'D'. 
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I^igure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 11 of 12) 



3. Set source segment DBD 
name host variable. 



4. Go to step 30. 



29. Set source segment, IMS 
compatibility, and source 
segment DBD name indicator 
variables to null. 



30. Insert DBD Segment Data record 
into the DBDSEGMENTDATA 
SQL/DS table. 

^kB^^EXEC SQL/DS 



31 . If more SEGTAB entries to be 
processed: 



Update to next SEGTAB 
entry. 



b. Go to step 3. 



DBOSQLIO 
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Figure 2-33.25 Create DBDSEGMENTDATA Records (DLZDLBDP) (Part 12 of 12) 
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32. Return to caller (BR R14). 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 1 of 4) 
r INPUT ™^—^-^■- 
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1. Initialize base register. 

2. Save return linkage register. 



3. If no LCHILD entries to be 
processed, go to step 17. 



4. If this segment is a logical child 
definition, go to step 17. 



5. If indexing or indexed LCHILD 
entry, go to step 16. 



6. Clear host and indicator variable 
area. 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 2 of 4) 
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7. Set segment name host variable. 



8. Set logical child segment name 
host variable. 



9. If LCHEDBD is a segment entry: 

a. Set logical DBD name host 
variable. 

b. Go to step 1 1 . 



10. Set logical DBD name host 
variable. 



1 1 . Set segment pointer host 
variable. 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 3 of 4) 
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12. If segment is paired: 



a. Set paired segment host 
variable. 



b. Go to step 14. 



13. Set paired segment indicator 
variable to null. 



14. Set insert rule host variable. 



15. Insert DBD logical relationship 
data record into the 
DBDLCHILDDATA SQL/DS table. 

^■^^ EXEC SQL/DS 
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Figure 2-33.26 Create DBDLCHILDDATA Records (DLZDLBDP) (Part 4 of 4) 
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16. If more LCHILD entires to be 
processed: 

a. Update to next LCHILD entry. 

b. Go to step 5. 

17. If more SEGTAB entries to be 
processed: 

a. Update to next SEGTAB 
entry. 

b. Go to step 3. 

18. Return to caller (BR R14). 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 1 of 5) 
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1 . Initialize base register. 

2. Save return linkage register. 

3. If no FLDTAB entries to be 
processed, go to step 19. 



4. Clear host and indicator variable 
area. 



5. Set segment name host variable. 

6. Set field name host variable. 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 2 of 5) 



7. If field is a sequence field: 



a. Set sequence field host 
variable. 



b. If sequence field is unique: 



1 . Set sequence type host 
variable to 'U'. 



2. Go to step 9. 



c. Set sequence type host 
variable to 'M'. 



d. Go to step 9. 



8. Set sequence field and type 
indicator variables to null. 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 3 of 5) 




9. If this is a system related field, 
go to step 1 1 . 



10. Set field length and starting 
position host variables, go to 
step 12. 



1 1 . Set field length and starting 
position indicator variables to 
null. 



12. If this is a special field entry, go 
to step 16. 



13. If current and a previous FLOTAB 
entry starting postions are equal: 

a. Set position name host 
variable. 



b. Go to step 15. 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 4 of 5) 



14. Set position name indicator 
variable to null. 



15. Set data type host variable, go to 
step 17. 



16. Set position name and data type 
indicator variables to null. 



17. Insert DBD field data record into 
DBDFIELDDATA SQL/DS table. 



> EXEC SQUDS 



18. If more FLDTAB entries to be 
processed: 



a. Update to next FLDTAB 
entry. 



b. Go to step 4. 
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Figure 2-33.27 Create DBDFIELDDATA Records (DLZDLBDP) (Part 5 of 5) 



19. If more SEGTAB entries to be 
processed : 



a. Update to next SEGTAB 
entry. 



b. Go to step 3. 
20. Return to caller (BR R14). 
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Figure 2-33.28 SQL/DS Error Processing Routine (DLZDLBDP) (Part 1 of 2) 



p PROCESS mm^m^^^mmm^mm^^ 

1 . Set SQL/DS error processing to 
continue. 



2. IV/lake SQL/DS code and 
diagnostics printable. 



3. Issue request to roll back all 
requests. 



> EXEC SQL/DS 



4. Set up pointers for message 
module. 



5. Go issue message DLZ575I. 



OUTPUT 1 
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Figure 2-33.28 SQL/DS Error Processing Routine (DLZDLBDP) (Part 2 of 2) 
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6. Set up pointer for message 
module. 



7. Go issue first part of message 
DLZ576I. 



8. Set up pointer for message 
module. 



9. Go to ERREXIT routine in 

DLZDLBLO, to issue 2nd part of 
message DLZ576I. 
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Figure 2-33.29 GETVIS Error Processing Routine (DLZDLBDP) 



1 . IVIalce GETVIS error return code 
printable. 



2. Issue requests to roll back all 
requests. 



3. Set up pointer for message 
module. 



4. Go to ERREXIT routine in 
DLZDLBLO, to issue message 
DLZ578I. 
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Figure 2-33.30 Internal Error Processing Routine (DLZDLBDP) 



1 . Issue request to roll back all 
requests. 



EXEC SQL/DS 



2. Set up pointer for message 
module. 



3. Go to ERROR926 routine in 
DLZDLBLO, to issue message 
DLZ926I. 
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Figure 2-33. 31. Message Writer (DLZLBLMO) 
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This routine can be called by 
DLZAUCBO, DLZLBLMO, 
DLZUAMBO, or DLZDPSBO. 



1. Find matching message ID. 



2. Move message to output area. 



3. Also move all inserts to message 
if any. 



4. Print message. 

5. Return. 
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Extended Description 
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Routine Label 



4. A subroutine in DLZUACBO 
CSECT is called to do the actual 
printing. 
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Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 1 of 4) 



m PROCESS ■ 



1 . Save callers registers. 

2. Open SYSIPT and SYSLST. 

^^1^^ OPEN Macro 

3. Acquire storage for SQLCA. 

^Pl^^ GETVIS Macro 

4. Acquire storage for I/O area. 

^■■^^ GETVIS Macro 



5. Acquire storage for woric control 
block. 

^■■^^^ GETVIS Macro 



6. Acquire storage for SQLDSECT. 

» GETVIS Macro 
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2. SYSIPT - USYSIN, 




AROUNDID 


SYSLST - PRINTER. 






3. For all GETVISs, if faU 




GETSTORl 


print DLZ578I message. 












set exit flag and go to 






step 9. 
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GETSTOR2 
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GETSTOR4 
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Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 2 of 4) 
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Set up header line. 



GETIME Macro 
COMRG Macro 



Go scan the control cards and 
build the EXTRACT DEFINE 
Commands. 



9. If not end of file then go to 
step 8. 



10. If SQL/DS not connected then go 
to step 12. 
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Extended Description Routine Label 
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SCANLOOP 


9. 


This is the return point 
for errors. 




ERRET 


10. 


SQL/DS is connected if 
CONNSQL is set in 
INITFLGS. 




CARDEOF 
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Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 3 of 4) 
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11. Release SQL/DS. 



EXEC SQL/DS 



12. If SQLCA Storage not there go to 
step 16 else free SQLCA storage. 



FREEVIS Macro 



13. If I/O area storage not there go 
to step 1 6 else free I/O area 
storage. 



FREEVIS Macro 



14. If work control block area not 
there go to step 16 else free 
work control block area. 



FREEVIS Macro 
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Extended Description Routine La 



Extended Description 



11. 

12. For all FREEVISs, if fail 
print DLZ578I message 
and to to ENDJOB. 

13. 

14. 


DLZEXDFP 


FREESTOR 

FREEl 
FREE2 




Figure 2-34 EXTRACT DEFINES Utility Main Routine (DLZEXDFP) (Part 4 of 4) 
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15. If SQLDSECT storage not there 
then go to step 16 else free 
SQLDSECT storage. 

^^■1^ FREEVIS Macro 



16. Close SYSIPT and SYSLST. 

17. Restore caller's registers. 

18. End of job. 
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Figure 2-34.1 EXTRACT DEFINES Utility - SCNCARDS Routine (DLZEXDFP) (Part 1 of 2) 



r PROCESS ^^"^ 
From Figure 2-34 



1 . Initialize variables and flags. 



2. Scan a set of EXTRACT control 
cards. If EOF, go to step 10 in 
figure 2-34. 



3. If all required parameters were not 
on control card print message 
DLZ502I and go to step 9 in 
figure 2-34. 



4. CONNECT to SQL/DS. 

^■^ EXEC SOL/DS 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




SCNCARDS 




1. Define lines in I/O area are 




SCNCARDS 


cleared to blanks. 






2. All Control cards are 


SCNCARDS 




printed to SYSLST after 


PROPSBNM 




they are read. Message 


PROPCBNM 




DLZ505I is used to print 


PRODLIPR 




syntax error message. 


PROREP 

PROUSRID 

GETWORD 

CDELMIT 

BUMPCP 

GETCARD 

PRTMSG 




3. Required parameters are 


SCNCARDS 


TESTPRMS 


PSBNAME, PCBNAME, 






USERID and DLIPROC. 






4. If CONNECT faOs print 




CNCTSQL 


message DLZ577I and 






DLZ576I. 







Extended Descripti 











EXWCB 




1 1 


EXINOUT 


1 1 






SYSLST 





Figure 2-34.1 EXTRACT DEFINES Utility - SCNCARDS Routine (DLZEXDFP) (Part 2 of 2) 




5. Go build define commands. 



6. Commit SQL/DS work. 

^■^^ EXEC SQL/DS 



7. Print message DLZ500I. 

8. Return to DLZEXDF main routine. 



Figure 2-34 
steps 
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i 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



Extended Description 



5. 
8. 
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CNCTDONE 
SCNRET 
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Figure 2-34.2 EXTRACT DEFINES Utility - PCBDEF Routine (DLZEXDFP) (Part 1 of 3) 



r INPUT- 



m PROCESS ■ 



From Figure 2-34.1 



1 . Clear PCB processing flags. 



2. See if ROUTINE already exists for 
PCBNAME. If not there go to 
step 5. 

^■■^ EXEC SQL/DS 



3. If REPLACE not specified on 
control card, print message 
DLZ501I and go to step 9 in 
figure 2-34. 



4. DELETE from ROUTINE table the 
routine for PCBNAME. 



► EXEC SQL/DS 



5. Set sequence number to zero. 



■ OUTPUT 


EXWCB 


1 PCBFLAGS 1 


EXINOUT 


1 PCBNAME 1 




SYSLST 




ROUTINE 




SOL/DS 




table 




EXINOUT 


1 SEQNUM 1 





DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



Extended Description 



1. Whenever SQLERROR is 
set to go to ERRORSQL 
routine. 

4. 

5. 


PCBDEF 


PCBDEF 

YESREP 
PCBDEFl 



Figure 2-34.2 EXTRACT DEFINES Utility - PCBDEF Routine (DLZEXDFP) (Part 2 of 3) 



6. Get Processing Option and DBD 
name for this PCB. 



7. If Processing Option is L or LS 
print message DLZ503I and go to 
step 9 in figure 2-34. 



8. Get Access method for DBD. 

^■^^ EXEC SOL/DS 



9. If Access method is Logical set 
flag. 



10. Insert DEFINE PCB command into 
ROUTINE table. 



* EXEC SQL/DS 



:> 



EXINOUT 






PROCOPT 




DBDNAME 




SYSLST 
EXINOUT 






ACCESS 






EXWCB 






PCBFLAGS 






ROUTINE 
SOL/DS 
table 

















DLZEXDFP - Create ISQL r< 



Extended Description 



>f EXTRACT DEFINE commands 



Extended Description 



10. 
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Figure 2-34.2 EXTRACT DEFINES Utility - PCBDEF Routine (DLZEXDFP) (Part 3 of 3) 



12. Print DEFINE PCB command. 

BAL j PRTMSG | 

13. Go build DEFINE SEGMENT and 
FIELD commands. 



14. Return to SCNCARDS routine. 



Figure 
2-34.1 
step 7 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



I 
I 

a. 
o 



f 



12. Double space or single 
space carriage control 
character is determined. 


PCBDEF 


PRTPDEF 



Extended Description 


Routine 


Label 









Is) 

I 



I 

OS 



F 






^ 






Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 1 of 9) 



^ 2. Move PCBNAME to DEFINE 
SEGMENT command line. 



^ 3. Get segment name and parent 
name from PSB. 



I PROCESS -i^^^ 
From Figure 2-34.2 



1 . Set segment number to one. 



EXEC SQL/OS 



4. If not found, go to step 44. 



^ 5. Increment segment number. 



6. If parent is null, move '0' to 
DEFINE SEGMENT command li 







"> 




EXINOUT 








SEGNUM 








'^^ 


EXINOUT 1 










SEGPCB 








z 


EXINOUT 1 












SEGNAME 




PARENT 








"i 


EXrNOUT 1 


— > 








SEGNUM 




EXINOUT 




PARENT 









DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



1. 

3. 

6. NuU is indicated if 
PARIND is less than 0. 


SEGDEFS 


SEGDEFS 
SEGDEFSl 



Extended Description 


Routine 


Label 









Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 2 of 9) 



PROCESS 
7 



If access is not 'LOGICAL' go to 
step 20. 



Get physical DBD name, physical 
segment name, destination 
parent DBD name, and 
destination parent segment name 
from Logical DBD. 

^H^^EXEC SQL/DS 



9. If this segment is not a 

concatenated segment go to 
step 21. 



10. Indicate that this is a 
concatenated segment. 



P OUTPUT I 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 

Extended Description Routine Label 



Extended Description 



7. 

9. If DPDBDIND is less 
than 0, this indicates that 
DPDBDNAM was null. 

10. CONCAT bit is set in 
SEGFLAGS. 


SEGDEFS 


SEGDEFS2 
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Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 3 of 9) 



PDBDNAME 



r PROCESS ^^^— ^^-—i^^^— 

1 1 . Get physical parent, pointer, 
logical child DBD and segment 
name and logical parent DBD and 
segment name. 

^Hi^^ EXEC SQL/DS 



12. If segment a virtual logical child 
segment, set flag and go to 
step 21. 



13. Get logical child DBD name and 
logical child segment name. 



14. If destination parent is the logical 
parent go to step 21. 



:> 



15. Get the logical parent DBD and 
segment names. 



DLZEXDFP - Create ISOL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




SEGDEFS 




11. Information is selected 






into PPARENT, 






LPSEGNAM, 






LPDBDNAM, 






PHYSPTR, LCDBDNAM 






and LCSEGNAM. 






12. Segment is a VLC if 






PHYSPTR = 'PAIRED' 






VLC is set in 






SEGFLAGS. 






LCDBDNAM and 






LCSEGNAM are null. 






14. Does LPSEGNAM = 






DPSEGNAM and 






LPDBDNAM = 






DPDBDNAM? 






15. 




BIDIR 



LCDBDNAM 



Extended Description 


Routine 


Label 









Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 4 of 9) 



X> 



16. Get VLC segment name. 

^k^^ EXEC SQL/DS 

17. If not found go to step 21. 

18. Indicate segment is VLC. 

19. Go to step 21. 



20. Get physical DBD name and 
physical segment name. 



EXINOUT 






PSEGNAME 






EXINOUT 






PDBDNAME 




PSEGNAME 
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DLZEXDFP - Create ISQL n 
Extended Description 



e of EXTRACT DEFINE commands 

Routine Label 



18. VLC flag is set in 
SEGDEFS. 

20. 


SEGDEFS 


NOTLOGIC 



Extended Description 


Routine 


Label 
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Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 5 of 9) 



C> 



r PROCESS ^^«-^«»i— H 
21. Set field number to one. 



22. Get field name. 

^■^^ EXEC SQL/DS 



23. If there is field level sensitivity, 
go to step 35. 



24. If segment is not a concatenated 
segment go to step 36. 



25. Go get segment bytes for this 
concatenated segment, then go 
to step 36. 



iO 



Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 6 of 9) 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



21. 

23. Segment is FLS if field 
name was found 
(SQLCODE not equal 
to 100). 


SEGDEFS 


SEGDEFS3 



Extended Description 


Routine 


Label 









"^^^ 26. Get bytes from physical segment. 
Go to step 22. 



• EXECSQL/DS 



27. If Bytes are not null then go to 
step 36. 



28. Initialize BYTESNUM, NEXTPOS 
and MOSTPOS. 



29. Get bytes and start for this field. 
If not found go to step 34. 



k EXEC SQL/DS 



30. If FIELDSTR + BYTES is less 

than or equal to MOSTPOS, then 
go to step 32. 



31. BYTESNUIVI = BYTESNUM + 
FIELDSTR + BYTES - 
MOSTPOS. 



32. NEXTPOS = FIELDSTR + 
BYTES. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 

Extended Description Routine La 



26. 
29. 
32. 


SEGDEFS 


NOTCON 

DBDBLOOP 

GETNPOS 
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■ OUTI 


EXINOUT 


"""^ 








BYTESNUM 
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EXINOUT 1 




















FIELDSTR 











Extended Description 


Routine 


Label 
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Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 7 of 9) 



INPUT" 



EXINOUT 
I BYTESNUM 



r PROCESS " 



33. If NEXTPOS is greater than 
MOSTPOS, then MOSTPOS = 
NEXTPOS and go to step 29. 



34. Go to step 36. 



35. Go get bytes for this field level 
sensitive segment. 



36. Make bytes printable and move 
to DEFINE SEGMENT command 



37. Increment sequence number. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 

Extended Description Routine Label 



I 

f 
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35. 
36. 


SEGDEFS 


SEGDEFS4 
SEGDEFS5 







"> 


1 SEGBYTES | 


> 




1 SEQNUM 1 







Extended Description 


Routine 


Label 









Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 8 of 9) 



EXINOUT 

I seonum" 



r PROCESS - 



38. Insert DEFINE SEGMENT 

command into ROUTINE table. 



» EXEC SQUDS 



39. Print DEFINE SEGMENT 
command. 



PRTMSG 



40. Save sequence number. 

41. Go build DEFINE field commands. 



BALR 



i 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 




Label 


38. PCBNAME, SEGNUM 


SEGDEFS 




and DEFSEG are aU 






inserted. 






39. Double space or single 




PRTSDEF 


space carriage control 






character is determined. 






40. Sequence number is saved 






to determine if any fields 






were defined for this 






segment. 







Extended Description 







Figure 2-34.3 EXTRACT DEFINES Utility - SEGDEFS Routine (DLZEXDFP) (Part 9 of 9) 



EXINOUT 


1 SEQNUM 1 


EXWCB 


1 SEQSAVE 1 





42. If sequence number has been 
incremented, go to step 3. 



43. Print warning message DLZ507I 
and go to step 3. 



44. Return to PCBDEF. 



p OUTPUT" 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



42. SEQNUM and SEQSAVE 
are compared. 

44. 


SEGDEFS 


NOMORESG 



Extended Description 


Routine 


Label 
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Figure 2-34.4 EXTRACT DEFINES Utility - CSEGBYTS Routine (DLZEXDFP) (Part 1 of 4) 



EXINOUT 




'J> 

••> 




LCDBDNAM 




LCSEGNAM 




EXINOUT 










DPOBDIMAM 




TEMPSEG 








EXWCB 


> 






rH 








EXINOUT 











r PROCESS ■— ^■- 
From Figure 2-34.3 



1 . Get bytes from logical child 
segment. 



> EXEC SQL/DS 



2. Save DPSEGNAM in TEMPSEG. 



3. Set destination parent 

concatenated key length and 
counter to zero. 



4. Get bytes for concatenated field ii 
destination parent. 



> EXEC SOL/DS 



5. Add field bytes to destination 
parent concatenated key length 
and add one to destination parent 
concatenated key counter. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



I 



I 



f 
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1. MAXBYTES is selected. 
4. 


CSEGBYTS 


CSEGBYTS 
DPCKLOOP 



Extended Description 


Routine 


Label 









Figure 2-34.4 EXTRACT DEFINES Utility - CSEGBYTS Routine (DLZEXDFP) (Part 2 of 4) 



I TEMPSIND I 



I SEGFLAGS 






6. Get parent name for this 
segment. 

^■■^^ EXEC SQL/DS 



7. If parent was not null go to 
step 4. 



8. If current segment is not a virtual 
logical child segment, go to 
step 19. 



9. Get physical parent name. 



10. Set logical parent concatenated 
key length to zero. 



EXINOUT 
I TEMPSEG I 



B 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



Extended Description 



6. 

7. Parent is null if indicator 
variable (TEMPSIND) is 
less than 0. 

8. Segment is a VLC if VLC 
bit set in SEGFLAGS. 


CSEGBYTS 


CSEGBYTl 



to 

I 



Figure 2-34.4 EXTRACT DEFINES Utility - CSEGBYTS Routine (DLZEXDFP) (Part 3 of 4) 



EXINOUT 






PDBONAME 




TEMPSEG 




EXINOUT 






LPCKNUM 




BYTES 




EXINOUT 










TEMPSEG 




EXINOUT 






TEMPSIND 











r PROCESS — — — — 

1 1 . Get bytes from field in logical 
parent concatenated key. 

^MKK^ exec sql/ds 



12. If field not found, go to step 14. 



13. Add field bytes to logical parent 
concatenated key length. 



14. Get parent name for this 
segment. 



15. If parent is not null, go to 
step 11. 



p OUTPUT ■ 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



11. 

12. Field is not found if 
SQLCODE = 100. 

14. 

15. Parent is null if indicator 
variable (TEMPSIND) is 
less than 0. 


CSEGBYTS 


LPCKLOOP 
CSEGBYT2 



Extended Description 


Routine 


Label 









Figure 2-34.4 EXTRACT DEFINES Utility - CSEGBYTS Routine (DLZEXDFP) (Part 4 of 4) 











:> 


















EXWCB 1 


"^ 


















EXINOUT 
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DPDBDNAM 




DPSEGNAM 








EXINOUT 


:> 












LCBYTES 




DPBYTES 









PROCESS ^— ^^^1^— i-^i^— 

16. Subtract logical parent 

concatenated key length from 
logical child bytes and add 
destination parent concatenated 
key length. 



17. Get bytes from destination parent 
segment. 



18. Add logical child bytes and 
destination parent bytes. 



19. Return to SEGDEFS. 



:0 



P OUTPUT ■ 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label 



17. 


CSEGBYTS 


GETDPBYT 



Extended Description 



Routine Label 
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Figure 2-34.5 EXTRACT DEFINES Utility - FLSBYTES Routine (DLZEXDFP) (Part 1 of 4) 



r PROCESS ■■^MMM 
From Figure 2-34.3 



1 . Set BYTESNUM to zero and 

NEXTPOS and MOSTPOS to one. 



2. Get field information for next field. 

^■j^^EXEC SQL/DS 



4. If not found go to step 21. 



5. If field is a VIRFLD, go to step 13. 



6. Go see if field exists in DBD and 
get Bytes and datatype if needed. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 


1. 


FLSBYTES 


FLSBYTES 


2. Information selected by 




FLSBLOOP 


PSBNAME, PCBNUM, 






SEGNAME, and 






FLDNAME into 






FLDNAME, BYTES, 






POSNAME, FIELDSTR, 






FLDTYPE, and 






VmORSEN. 






3. Field is not found if 






SQLCODE = 100. 






4. Field is a VIRFLD if 






VIRORSEN = 'V. 







xtended Description 


Routine 


Label 









Figure 2-34.5 EXTRACT DEFINES Utility - FLSBYTES Routine (DLZEXDFP) (Part 2 of 4) 



TYPIND I 



7. If field is an XDFLD, clear flag 
and go to step 22. 



8. If bytes are specified in PSB for 
this field go to step 1 1 . 



9. Get bytes. 



10. Update bytes information in 
PSBFIELDDATA table. 

^^■^^ EXEC SQL/DS 



11. If type is specified in PSB for this 
field go to step 13. 



1 2. Update type information in 
PSBFIELDDATA table. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



7. Field is XDFLD if 
XDFLD bit set in 
SEGFLAGS. 

8. Bytes are not specified 
ifBYTINDislessthanO. 

11. Type is not specified if 
TYPIND is less than 0. 




UPDATBYT 
TYPENULL 



Extended Description 



r OUTPUT ■ 
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Figure 2-34.5 EXTRACT DEFINES Utility - FLSBYTES Routine (DLZEXDFP) (Part 3 of 4) 



lO 



1 3. If field start is specified on the 
PSB go to step 18. 



14. If field start name is not specified 
go to step 16. 



15. Get start position of this sub-field 
and go to step 17. 



» EXEC SQL/DS 



16. Get field start. 



17. Update start information in 
PSBFIELDDATA table. 



EXINOUT 


1 FIELDSTR 1 


EXINOUT 


1 FIELDSTR 1 


PSBFIELDDATA 
SQL/DS table 


1 POSITION 1 





DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 





Routine 


Label 




FLSBYTES 




13. Field start is not 




STRTNULL 


specified if STARTIND is 






less than 0. 






14. Field start name is not 






specified if POSNAIND is 






less than 0. 






15. Select is by PCBNUM, 






SEGNAME, less than 






FLDNUM, and 






POSNAME. 






16. Field start is the next 




NOSTRNAM 


available position since no 






start was specified. 






17. 




UPDATPOS 



Extended Description 



Figure 2-34.5 EXTRACT DEFINES Utility - FLSBYTES Routine (DLZEXDFP) (Part 4 of 4) 



I INPUT ■ 



18. If field not a subfield, go to 
Step 21. 

19. Increment BYTESNUM to not 
include any overlap of another 
field. 



20. If NEXTPOS is greater than 
MOSTPOS, then NEXTPOS = 
MOSTPOS. 



21 . Increment the field number. 

22. Return to SEGDEFS. 



r OUTPUT ' 



Figure 
2-34.3 
step 22 



EXINOUT 
I BYTESNUM | 



I FLDNUM I 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Descnptlon 


Routine 


Label 




FLSBYTES 




18. If FIELDSTR + BYTES 




GOTSTART 


is greater than 






MOSTPOS. 






19. BYTESNUM = 












FIELDSTR + BYTES - 






MOSTPOS. 






20. 




GETNEXTP 


21. 




INCFLDNO 


22. 




FLSBYRET 



Extended Description 
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Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 1 of 6) 



^1 2. If segment is field level sensitive, 
go to step 1 1 . 



■ PROCESS — i— 
From Figure 2-34.3 



1 . Move pcbname and segment name 
to DEFINE FIELD command line 
and set field number to one. 



3. If segment is a concatenated 
segment, go to step 18. 



4. Open DBDFIELDPTR. 

^■B^ EXEC SQL/DS 



Get information for next field from 
DBD. 



6. If field was not found, go to 
step 10. 



I OUTPUT I 



Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 2 of 6) 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 


1. 


FLDDEFS 


FLDDEFS 


2. Segment is FLS if FLS is 
set in SEGFLAGS. 






3. Segment is concatenated if 
CONCAT is set in 
SEGFLAGS. 






4. This pointer is used for a 
select on the 
DBDFIELDDATA 
SQL/DS table so that one 
row at a time is returned. 






5. Select is done into 
SEQFLD, FffiLDBYT, 
FIELDSTR, and 
FLDTYPE. 




FLDLOOPl 


6. Field was not found if 
SQLCODE = 100. 







Extended Description 




7. If field name starts with a 7', go 
to step 5. 

8. If field name does not begin with 
an alphabetic character, set 
warning flag. 



9. Go insert DEFINE FIELD 

command in ROUTINE table and 
go to step 5. 



10. Close DBDFIELDPTR and go to 
step 24. 



EXEC SOL/DS 



p OUTPUT ' 



O 
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DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label 



7. WARNING2 bit is set in 
EFLAGS. 

8. 

10. 


FLDDEFS 


FLDDEFSl 
CLOSEPTR 



Extended Description 



to 
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Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 3 of 6) 
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EXINOUT 


1 1 


EXINOUT 


1 FLDNUM 1 


EXINOUT 


i VIRORSEN 1 





11. Get field information for next 
field from PSB. 

^^■1^ EXEC SOL/DS 

12. If field not found, go to Step 24. 

1 3. Increment Field number and set 
Sequence field indicator variable 
to null. 

14. If field is not a SENFLD, go to 
step 17. 

15. Go see if field is a sequence 
field. 


BALR 


FINDFLD 




Figure 2-34.7 









EXINOUT 












EXINOUT 






FLDNUM 




SEOIND 









DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 




Label 


1 1 . Information is selected by 


FLDDEFS 


FLDFLS 


PSBNAME, PCBNUM, 




FLDLOOP2 


SEGNAME, and 






FLDNUM into 






FLDNAME, FIELDBYT, 






FIELDSTR, FLDTYPE, 






and VIRORSEN. 






12. Field if not found if 






SQLCODE = 100. 






13. SEQIND is set to -1. 






14. Field is SENFLD if 






VIRORSEN = 'S'. 







Extended Description 



Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 4 of 6) 



16. If field is an XDFLD, clear flag 
and go to step 24. 



17. Go insert DEFINE FIELD 

command in ROUTINE table and 
go to step 1 1 . 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



16. Field is XDFLD if 
XDFLD bit set in 
SEGFLAGS. 

17. 


FLDDEFS 


GODEFFLD 



Extended Description 


Routine 


Label 












O 



o 



o 



o 



o 



o 



o 



o 



o 



Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 5 of 6) 



18. Go build DEFINE FIELD 

commands for concatenated key 
fields. 



19. If segment is not a virtual logical 
child segment, go to step 21. 



20. Go build DEFINE FIELD 

commands for virtual logical child 
fields. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



S 

I 

o 



18. 

19. Segment is VLC if VLC 
bit is set in SEGFLAGS. 


FLDDEFS 


FLDCONCT 



Extended Description 


Routine 


Label 









Figure 2-34.6 EXTRACT DEFINES Utility - FLDDEFS Routine (DLZEXDFP) (Part 6 of 6) 



21. Go build DEFINE FIELD 

commands for logical child fields. 



22. Go build DEFINE FIELD 

commands for logical child fields. 



23. Free CKFTAB storage. 

^■^^ FREEVIS Macro 

24. Return to SEGDEFS. 



Figure 
2-34.3 
step 28 



I 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




FLDDEFS 




21. 




DEFLC 


23. On FREEVIS failure, 






message DLZ578I is 






printed, EXIT flag is set. 






SQL ROLLBACK WORK 






is performed and branch 






is taken to step 9 of 






figure 2-34. 






24. 




FLDRET 



Extended Description 



I 



to 

I 

to 



^ 



8 



^ 



1- 



^ 



Figure 2-34.7 EXTRACT DEFINES Utility - FINDFLD Routine (DLZEXDFP) (Part 1 of 3) 





> 




1 SEGFLAGS | 




•"^ 


=^ 


1 SEGFLAGS | 


EXINOUT 


1 1 


EXINOUT 


■ "i 




1 1 





PROCESS ^-M-iHiHiHiHiH 
From Figure 2-34.3 or 2-34.6 



1 . If Segment is not a concatenated 
segment, go to step 9. 



2. If Segment is not a virtual logical 
child, go to step 5. 



3. Get field information from virtual 
logical child. 



> EXEC SOL/DS 



4. If field was found, go to step 14. 



5. Get field information from logical 
child. 



6. If field was found, go to step 14. 



r OUTPUT- 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 





Routine 


Label 




FINDFLD 




1. Segment is concatenated if 




FINDFLD 


CONCAT set in 






SEGFLAGS. 






2. SegmentisaVLCifVLC 






is set in SEGFLAGS. 






3. Information is selected by 






PDBDNAME, 






PSEGNAME and 






FLDNAME into SEQFLD, 






TEMPTYPE, and 






TEMPBYTS. 






5. Infomation is selected by 




CHECKLC 


LCDBDNAM, 






LCSEGNAM and 






FLDNAME into SEQFLD, 






TEMPTYPE, and 






TEMPBYTS. 







Extended Description 




Figure 2-34.7 EXTRACT DEFINES Utility - FINDFLD Routine (DLZEXDFP) (Part 2 of 3) 



PROCESS ■HHHBi.BKiiMBM 

7. Get field information from 
destination parent. 



8. If field was found, go to step 14. 
If field was not found, go to 
step 11. 



9. Get field information from 
physical DBD. 

^^■^^ EXEC SQL/DS 

10. If field was found, go to step 14. 

11. See if field is an XDFLD. 

EXEC SOL/DS 



> 



DLZEXDFP - Create iSQL routine of EXTRACT DEFINE commands 



xtended Description 


Routine 


Label 


7. Infomiation is selected by 


FINDFLD 


CHECKDP 


DPDBDNAM, 






DPSEGNAM and 






FLDNAME into 






SEQFLD, TEMPTYPE, 






and TEMPBYTS. 






9. Information is selected by 




NONCONCT 


DPDBDNAM, 






DPSEGNAM and 






FLDNAME into 






SEQFLD, TEMPTYPE, 






and TEMPBYTS. 






1 1 . Information is selected by 




CHECKXDF 


PDBDNAME, 






PSEGNAME and 






FLDNAME. 







Extended Description 


Routine 


Label 









I 



i 



o 



o 



o 



^: 






o 
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Figure 2-34.7 EXTRACT DEFINES Utility - FINDFLD Routine (DLZEXDFP) (Part 3 of 3) 



INPUT - 



I FLDNUM 



12. If field was not found, print 

message DLZ575I and DLZ576I, 
set exit flag and go to step 9 in 
figure 2-34. 



13. Indicate field is XDFLD. 

14. Return to caller. 



:0 



EXWCB 
I SEGFLAGS | 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 

Extended Description Routine Label 



I 

I 

o 



14. 


FINDFLD 


FDFLDRET 



Extended Description 



! 
to 



Figure 2-34.8 EXTRACT DEFINES Utility - CKDEFS Routine (DLZEXDFP) (Part 1 of 4) 



r INPUT ■ 



EXINOUT 
DPSEGNAM I 



r PROCESS — 
From Figure 2-34.6 



1 . Acquire storage for concatenated 
key field name table. 



► GETVIS Macro 



2. Set field count to zero. 



3. Get first segment. 



4. Get field information for next 
concatenated key field. 



> EXEC SQL/DS 



5. If not found go to step 10. 



EXINOUT 
I TEMPSEG 



DLZEXDFP - Create ISQL r( 



e of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




CKDEFS 




1. On GETVIS error, print 




CKDEFS 


message DLZ578I, set 






EXIT flag, purge rest of 






control cards, go to step 9 






in figure 2-34. 






2. 




GOTSTOR5 


4. Information is selected by 




CKDLOOPl 


DPDBDNAM, and 






TEMPSEG into 






FLDNAME, SEQFLD, 






FIELDBYT, and 






FLDTYPE. 







Extended Description 




Figure 2-34.8 EXTRACT DEFINES Utility - CKDEFS Routine (DLZEXDFP) (Part 2 of 4) 



6. If field name already in the table, 
set warning flag. 



7. Insert field information into next 
available table entry. 



8. Increment field count. 



9. Get parent name of this segment. 

^■^^ EXEC SQL/DS 



10. If parent name is not null go to 
step 5. 



11. Set COUNTER and NEXTPOS to 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




CKDEFS 




6. DUPLICAT bit is set for 




CKDEFS 1 


that table entry. 






7. FLDNAME, 




CKDEFS2 


FIELDBYT, FLDTYPE 






are moved to 






CKFNAME, CKBYTES, 






CKTYPE. 






10. 




CKDEFS3 



Extended Description 



O 



P OUTPUT I 



EXWCB 
I CKFTCNT 




i 



© 



o 



vy 






^^^ 



o 



o 



o 



Figure 2-34.8 EXTRACT DEFINES Utility - CKDEFS Routine (DLZEXDFP) (Part 3 of 4) 









CKFTAB 




J 
















EXINOUT 






> 




NEXTPOS 




FIELDBYT 








CKFTAB 




■■> 
















EXINOUT 






,?■ 











12. If COUNTER is greater tlian 
CKFTCNT, go to step 20. 



1 3. l\/love field information for this 
field to define lines. 



14. Get the starting position of field. 



15. If this field is a duplicate field, 
set warning flag. 



16. If field name does not begin with 
an alphabetic character, set 
warning flag. 



I FIELDSTR I 



Figure 2-34.8 EXTRACT DEFINES Utility - CKDEFS Routine (DLZEXDFP) (Part 4 of 4) 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 
Extended Description Routine Label 



12. 

14. FIELDSTR = NEXTPOS 
NEXTPOS = NEXTPOS 
+ FIELDBYT 

15. WARNING2 bit is set in 
EFLAGS. 

16. 


CKDEFS 


CKDLOOP3 
TESTALPH 



Extended Description 




17. Go insert DEFINE FIELD 

command in ROUTINE table. 



18. Increment COUNTER. 



19. Point to next table entry and go 
to step 12. 



20. Return to FLDDEFS. 



Figure 
2-34.6 
step 20 



E3 



DLZEXDFP - Create ISOL routine of EXTRACT DEFINE commands 



Extended Description 



Extended Description 



17. 
20. 


CKDEFS 


CKDEFS4 
CKDEFRET 



I 

to 
to 



r 

5 
o 

< 

I 









Figure 2-34.9 EXTRACT DEFINES Utility - VLCDEFS Routine (DLZEXDFP) (Part 1 of 2) 



From Figure 2-34.6 

1. Open DBDVLCFIELDPTR. 

^^^^ EXEC SQL/DS 



2. Get field information for next field 
of virtual logical child segment. 



^ EXEC SQL/bS 



3. If field not found, go to step 9. 



4. If field name starts with a 7', go 
to step 2. 



5. If field name does not begin with 
an alphabetic character, set 
warning flag. 



6. If field name is in concatenated 
field name table, set warning flag. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



xtended Description 


Routine 


Label 




VLCDEFS 




1. This pointer is used to 
select virtual logical child 
field data so that one row 
is returned at a time. 




VLCDEFS 


2. Information is selected by 
PDBDNAME and 
PSEGNAME into 
FLDNAME, SEQFLD, 
FLDTYPE, FIELDSTR, 
and FIELDBYT. 




VLCLOOPl 


4. /SX and /CK fields are not 
defined. 






5. WARNING2 bit is set in 
EFLAGS. 






6. 




VLCDEFSl 
VLCLOOP2 
VLCDEFS2 



Xtended Description 




Label 









Figure 2-34.9 EXTRACT DEFINES Utility - VLCDEFS Routine (DLZEXDFP) (Part 2 of 2) 



7. Go insert DEFINE FIELD 
command in ROUTINE table. 




BALR 


INSRTFLD 




Figure 2-34.12 


8. Go to step 2. 

9. Close DBDVLCFIELDPTR. 
10. Return to SEGDEFS Routine. 



Figure 
2-34.6 



Di.ZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



7. 
9. 


VLCDEFS 


VLCDEFS3 
VLCDFRET 



Extended Description 



Routine Label 




5 

B 



o 



o 



^ 



o 



^^ 



o 



o 



o 



Figure 2-34.10 EXTRACT DEFINES Utility - LCDEFS Routine (DLZEXDFP) (Part 1 of 3) 



From Figure 2-34.6 



1. Open DBDLCFIELDPTR. 

^■■^ EXEC SQL/DS 



2. Get field information for next field 
of virtual logical child segment. 



3. If field not found, go to step 14. 



4. If field name starts with a '/', go 
to step 2. 



5. If field name does not begin with 
an alphabetic character, set 
warning flag. 



6. If field name is in concatenated 
field name table, set warning flag 
and go to step 1 1 . 



C> 



■OUl 


EXINOUT 


1 1 


EXWCB 


1 EFLAGS 1 


EXWCB 


1 EFLAGS 1 





DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



xtended Description 


Routine 


Label 




LCDEFS 




1. This pointer is used to 
select logical child field 
data so that one row is 
returned at a time. 




LCDEFS 


2. Information is selected by 
LCDBDNAM and 
LCSEGNAM into 
FLDNAME, SEQFLD, 
FLDTYPE, FIELDSTR, 
and FIELDBYT. 




LCDLOOPl 


4. /SX and /CK fields are not 
defined. 






5. WARNING2 bit is set in 
EFLAGS. 






6. 




LCDEFSl 

LCDLOOP2 

LCDEFS2 



Extended Description 



Figure 2-34.10 EXTRACT DEFINES Utility - LCDEFS Routine (DLZEXDFP) (Part 2 of 3) 



I SEGFLAGS 



7. If segment is not a virtual logical 
child, go to step 12. 



8. See if field name has already 
been defined for a virtual logical 
child field. 

EXEC SQL/DS 



9. If found field, set warning flag. 



1 1 . Adjust field start. 



I FLDNAME | 



I 



DLZEXDFP - Create I! 



Extended Description 



e of EXTRACT D 



7. Segment is a VLC if 
VLC bit is set in 
SEGFLAGS. 

11. FffiLDSTR = 

FffiLDSTR - LPCKLEN 
+ DPCKLEN. 


LCDEFS 


LCDEFS3 
LCDEFS4 



Extended Description 







to 

I 



o 
o 

< 



% 



t 
t 






Figure 2-34.10 EXTRACT DEFINES Utility - LCDEFS Routine (DLZEXDFP) (Part 3 of 3) 



12. Go insert DEFINE FIELD 




BALR 


INSRTFLD 




Figure 2-34.12 


13. Go to step 2. 

14. Close DBDLCFIELDPTR. 

15. Return to SEGDEFS Routine. 



Figure 
2-34.6 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE 
Extended Description Routine 



12. 
14. 


VLCDEFS 


VLCDEFS3 
LCDFRET 



Extended Description 
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Figure 2-34.11 EXTRACT DEFINES Utility - DPDEFS Routine (DLZEXDFP) (Part 1 of 3) 



p INPUT- 



j CKFNAME I 



I- PROCESS ■ 



C> 



O 



:> 



From Figure 2-34.6 

1 . Open DBDDPFIELDPTR. 

^^■^b EXEC SQL/OS 



2. Get field information for next field 
of destination parent segment. 



3. If field not found, go to step 16. 



4. If field name starts with a '/', go 
to step 2. 



5. If field name does not begin with 
an alphabetic character, set 
warning flag. 



6. If field name is in concatenated 
field name table, set warning flag 
and go to step 1 2. 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 




DPDEFS 




1. This pointer is used to 




DPDEFS 


select destination parent 






field data so that one row 






is returned at a time. 






2. Information is selected by 




DPDLOOPl 


DPDBDNAM and 






DPSEGNAM into 






FLDNAME, SEQFLD, 






FLDTYPE, FIELDSTR, 






and FIELDBYT. 






4. /SX and /CK fields are not 






defined. 






5. WARNING2 bit is set in 






EFLAGS. 






6. 




DPDEFS 1 

DPDLOOP2 

DPDEFS2 



Extended Description 





EXINOUT 


1 1 


EXWCB 


1 EFLAGS 1 


EXWCB 


1 EFLAGS 1 





Figure 2-34.11 EXTRACT DEFINES Utility - DPDEFS Routine (DLZEXDFP) (Part 2 of 3) 



r INPUT- 



r PROCESS « 



7. If segment is not a virtual logical 
child, go to step 10. 



8. See if field name has already 
been defined for a virtual logical 
child field. 

^■^^ EXEC SQL/DS 



9. If found field, set warning flag 
and go to step 12. 



10. See if field name has already 
been defined for a logical child 
field. 

^■11^^ EXEC SQL/DS 



11. If found field, set warning flag 
and go to step 12. 





EXINOUT 


•'^ 






EXWCB 


> 


— > 


1 1 


EXINOUT 




1 FLDNAME | 


EXWCB 


2 




1 EFLAGS 1 





i 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



7. Segment is a VLC if 
VLC bit is set in 
SEGFLAGS. 

10. 


DPDEFS 


DPDEFS3 
CPDEFS4 



Extended Description 



I 
en 



I 



5 

O 

3 



<@. 



i 



Figure 2-34.11 EXTRACT DEFINES Utility - DPDEFS Routine (DLZEXDFP) (Part 3 of 3) 



INPUT- 



EXWCB 


1 LCBYTES 1 


EXiNOUT 


1 FIELDSTR 1 





r PROCESS ■ 



12. Adjust field start. 



13. Go insert DEFINE FIELD 

command in ROUTINE table. 



14. Go to step 2. 

15. Close DBDPFIELDPTR. 

^k|g^^ EXEC SQL/DS 

16. Return to SEGDEFS. 



■ OUTPUT ■ 
I^ EX 



Figure 
2-34.6 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



12. FIELDSTR = 
FIELDSTR + 
LCBTYES. 

15. 


DPDEFS 


DPDEFS5 
DPDEFRET 



Extended Description 




! 

i 

i 



O 



o 
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Figure 2-34.12 EXTRACT DEFINES Utility - INSRTFLD Routine (DLZEXDFP) (Part 1 of 2) 

PROCESS -^—^—^—1-^^— 



■ IIMKU 


EXINOUT 




^ 




"^ 




SEQIND 






EXINOUT 1 














FIELDSTR 




FIELDBYT 








EXINOUT 1 


"•i 












SEQNUM 






EXINOUT 


1 



















1 . If this field is a sequence field, 
move 'SEQ' to command line. 
Otherwise move 'NOSEQ'. 



2. Make start and bytes printable. 

3. increment sequence number. 

4. Print DEFINE FIELD command line. 

BAL I PRTMSG ~| 



5. Insert DEFINE FIELD command into 
ROUTINE table. 



■ OUT 


EXINOUT 




FLDSEQ 




EXINOUT 




FLDSTART 




FLDBYTES 


EXINOUT 




SEQNUM 




ROUTINE 
SQL/DS table 













DLZEXDFP - Create ISOL routine of EXTRACT DEFINE commands 



Extended Description 


Routine 


Label 


1. 


INSRTFLD 


INSRTFLD 
NOSEQ 


2. 




CONVSTRT 


4. Single or double spaced 




NOFDOUB 


carnage control character 




PRTFDEF 


is determined. 







Extended Description 



Figure 2-34.12 EXTRACT DEFINES Utility - INSRTFLD Routine (DLZEXDFP) (Part 2 of 2) 
M iNPUT«"-i^^— ^ 



■ PROCESS ^^^— «^^^-« 

6. Print warning messages if 
specified. 



7. Return to caller. 



i 



DLZEXDFP - Create ISQL routine of EXTRACT DEFINE commands 



Extended Description 



6. DLZ504I if WARNING! 
set, DLZ506I if 
WARNING2 set. 

7. 


INSRTFLD 


CHKWARN2 
INSRTRET 



Extended Description 



I 



o 

r 

5 

o 

3 



t 






Figure 2-35. 


>rereorganization Utility (DLZURPRO) (Part 1 of 4) 










From 
Batch 

(Figure 2-3.4) 


^ 














1 


Caller 




R1 > 1 Ca„o n«ntont« «f R1 in PRTAnRR > 




PST 
Address 


3 


2. Open printer and reader and 
establish PST and SCD 

^■^ OPEN Macro 
^■I^GETIME Macro 

* 3. Read control cards and 

validate content. At end of 
file go to Step 7. 

^■1^ GET Macro 

^ 4. Convert the dbdname to a 






1 il 1 


















J- 


DMBNAME 




SYSIPT 








DBIL= 


dbdname | or 


/ 




DBR=dbdname 




















































> 5. Acquire list space if required 


[ 


LSTHD 




1 1 




and enter DMB in control list. 




1 


1 


^■HB GETVIS Macro 

6. Return to Step 3 to process the 
next operand or control card. 












DLZUCDSO 






LEFPTR 




LENAME 


LECRNO 


LELEN 


LEFLG1 




Control List 
















1 



Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 2 of 4) 

pi INPUT MHHai-B^^^^ia H PROCESS -^— — i^ 



DLZURPRO - Prereorganization CSECT 



Extended Description 


Routine 


Label 


1. Module identifier (DLZURPROvrnp) 
is defined here. 


DLZURPRO 


DLZURPRO 
HERE 


This utility executes as 'ULU' under 
DL/I control. No blocks or buffers 
have been loaded yet. Only the nucleus 
exists. Batch initialization passes the 
PST address to the logical relationship 
utilities rather than a PCB address. 






2. 




OPEN! 


3. Control card contains identifier as 
DBIL= (initial load), DBR= 
(reorganize), OPTIONS=, and 
dbdnames. In case of an input control 
card format error, message DLZ954I 
is printed and job terminates. 




NXTCR 


4. 




DBIREC 
DBRREC 



Extended Description 



DLZURPRO 

Routine 



5. Control list entries contain DMB 
names of data base and user options 
specified in control cards. 

Macro DLZUCDSO contains the 
DSECT defining the format of a 
control list entry. 

Write message DLZ963I if an entry 
already exists for a dmbname. 

Write message DLZ965I if the number 
of control list entries exceeds the 
maximum of 20. 

Write message DLZ39 11 if GETVIS 
fails. 




LSTINS 



I p PROC 

> 7. 



Continue to next step for each 
data base referred to in control 
list entry. 

At end of entries, go to Step 15. 



IflPCBLIST I 
J {Address | 



1> 8. Load utility PSB. 



DLZBLKLD Macro 



^ 9. Find the PCB representing this 
^ data base. 



IJV. DL/l Blocks 
^and Buffers 



10. Scan all segments in data base 
for logical relationships (LR) 
and continue for each found. 
At end, return to Step 7. 



>C 



DLZURPRO — Prereorganization Utility 





Routine 


Label 


7. Write message DLZ964I for no DBIL 
or DBR control cards. 


DLZURPRO 


SCAN 
SCANIO 


Write message DLZ976I if the 
dbdname specified is an index DBD. 






8. The DLZBLKLD macro moves the 
dmbname to PST at PSIPCPSB and 
sets utility suffix 'U' and calls DL/I 
with the BLDB call function. 




BLDBLKS 


Write message DLZ956I for a data 
base control block build failure or 
if there is no PCB. 






Rl is returned with the address of the 
PSBLIST. 






9. 




NEWDBLP 


10. If a LP/LC exists for a segment, 
continue to the next step to look at 
the secondary list entries for the 
segment. After each SDB with a LR 
has been processed return to Step 7 
to process the next data base control 
list entry. 




SCAN20 




s, 

i 



^^^^ 



O 






o 



o 



o 



o 
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o 



Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 3 of 4) 

p INPUT I r PROCESS Bi^-»— 



Figure 2-35. Prereorganization Utility (DLZURPRO) (Part 4 of 4) 



DMBSCDE 


1 DDIRADDR | 


DMBSECDB 


DMB 


_DMBSECSC 


1 dmblentbI 



Q" 

Control 
Data Set 
(SYS012) 



11. Scan ail SEC entries for logical 
parent (LP) or logical child 
(LC) entry and continue for each 
found. At end, return to Step 10. 



12. Find the PSDB and then the SEC 
entry of the referenced segment 
that points to this segment in 
order to find the LC's LP or 
the LP's LC. 



13. Build a data base list entry 
for the found LP or LC if it 
exists in a data base not on the 
DBIL= or DBR= card. 



14. Build a segment list entry for 
the segment and a secondary 
list entry. Return to Step 11. 



15. Print and punch DBS cards if 
requested by OPTIONS. 



16. Determine device type and open 
the control data set. 



} DLZDVCE Macro 
f OPEN Macro 



DLZURPRO — Prereorganizi 



C£ 



SYSLST SYSPCH 



■ INPUT 




LSTHD 








H 


1 

DLZUCDSO 








Data Base 
List Entries 











'' 


Segment List 
Entries 




Secondary 
List Entries 






Control List 






Caller 






1 1 















> 



17. Write Control list to control 
data set 



18. Close control data set, printer, 
reader, and punch. 



k CLOSE Macro 



19. Return. 




> 



Q 

Control 
Data Set 
(SYS012) 



i 



Extended Description 


Routine 


Label 


11. 


DLZURPRO 


SCAN50 


12. The correct SEC is found by comparing 
the dbdname in the SEC to the 
dbdname in the SDB. 




SCAN60 


Each SEC for the segment is examined 
to see if it is a LP or LC entry. 






Write message DLZ965I if a SEC is 
not foxind with a matching dbdname. 






13. Write message DLZ985I for a limit 
check failure. 




SCANllO 
SCAN140 


14. Segment entries contain segment 
names involved in logical relationships 
(LR). 






Secondary list entries contain DMB 
names which refer to logically 
related data bases. 






As control data set list entries are built, 
each record is calculated to determine a 
maximum record length. The largest size 
is saved and put into field LESRTSZE 
when the control data set is written 
(Step 17). 







Extended Description 



DLZURPRO 

Routine 



DLZURPRO - Prereorganization Utility 
Extended Description 



15. DBS indicates data base must be 
scanned using SCAN utility 
(DLZURGSO). 

Write message DLZ962I to list 
segments scanned. 

16. Write message DLZ984I if there is an 
invalid device assignment for 
SYS012. 




SCNLST 
NXTDB 

SCAN500 
OPENCTL 



17. 

18. Write message DLZ966I for a 
normal termination. 

19. 


DLZURPRO 


SCLPS 

SCAN700 
TERM 

GOODRET 



Extended Description 



DLZURPRO 

Routine Label 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 1 of 8) 



Figure 2-36. DB SCAN (DLZURGSO) (Part 2 of 8) 
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1 A (PST) 1 1 PSTSCDAD | 




SCD 




S> 1. Establish addressability and 
open the printer, reader, and 
console. 






JSCDDSEHO 1 


; 










^m|4 npPN lUlarrn 








AFINDDTF ^ ^ 


^ 2. Open Control Data & 

BALR 


t. 






1 ' 1 


DLZDSEHO 






Control 
Data Set 


Check ASSGN and 
fill DTP. 














AjHI^ OPEN Macro 

> 3. Read all control records. 

^■1^ GET Macro 
^m^ GETVIS Macro 

4. Close control data set. 

^■■I^ CLOSE Macro 










Control 
Data Set 










S 5. Read input control cards. 

^i^^ GET Macro 




i 






Scan Input Cards 
(Optional) 











Caller 
Registers 



CDSHD DBNAMEFC | 


1, 1 1 
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db list ent. 




segm list ent. 


sec list ent. 


Control Data Set 





DLZURGSO - DB SCAN CSECT 





Routine 


Label 


1. Module identifier is defined here. This 


DLZURGSO 


DLZURGSO 


utility executes as 'ULIT under DL/I 




OPENl 


control. No blocks or buffers have 






been loaded yet. Only the nucleus 






exists. Batch Initialization passes the 






PST address to the logical relationship 






utilities rather than a PCB address. 






The DLZDSEHO prefix contains 






addresses to routines within 






DLZDSEHO. The routines are used 






by this utility. The addresses are 






moved to a constant area beginning 






at ADSEHO. 






2. The 'FINDDTF' subroutine of 




PROCCTL 


DLZDSEHO is used to check that 




OPEN 


SYS012 is properly assigned to a disk 






and to fill the correct device type 






in DTP. 






Write DLZ984I if the control file is 






not assigned to a disk. 






3. The Control Data Set is moved from 






the I/O area to storage acquired by 






GETVIS for further processing. 







Extended Description 



DLZURGSO 

Routine 



3. (con't) 

Write DLZ391I for a GETVIS 
failure. 

Write DLZ957I for no control data 
set or, if the ID is not 'CONTROL 
DATA SET'. 

4. 

5. Input on 'DBS=' card is used to 
modify Control Data Set in core. 
'RSTRT=' and/or 'CHKPT=' specify 
checkpoint/restart capabilities. 
'ABEND' card used for testing. 

Write DLZ954I for a control card 
format error. 




CDSEOFB 
NXTCR 



INPUT H» 
DLZUCDSO 



Control 
Data Set 



AOPENWRK 






^ a. For DBS=, set up list entry scan. 



b. For RSTRT=, set up to perform 
restart. 



c. For CHKPT=, set up to perform 
checkpoint. 



6. Open work data set. 



7. If not restarting, go to step 14. 



8. Open Restart file. 



^ 9. Copy records to output file (including 
checkpoint records) until the check- 
point record to restart from is found. 



DLZURGSO - DB SCAN CSECT 





Routine 


Label 


a. 




DBSREC 


b. 




RSTRTREC 


c. 




CHKPTRC 


6. Write DLZ984I for unknown or ignored 




SCAN 


device type. 






7. 




SCAN 10 


9. Restart records are copied from the 




RSTRT40 


previous WORKFIL until the specified 






checkpoint record is found. An SSA 






is set to do qualified GU on last 






segment to reestablish position. 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 3 of 8) 




PDBN 



DBNAMEFC 
I I 



I 



10. Get ready to position tlie data 
base to the segment identified 
in the requested checl(point 
record. 



11. Copy the checkpoint continua- 
tion record to the work file. 



GET Macro 
PUT Macro 



12. Locate the data base list entry 
and segment list entry in the 
Control Data Set to restart 
processing from. 



13. Close Restart file. 



14. Get a data base list entry and 
continue to step 15 for each 
one found. 

After all list entries have 
been processed, go to step 34. 



DLZURGSO - DB SCAN CSECT 



I 





Routine 


Label 


10. The SSA built is a qualified key 
call - 'segname*C (key)' to be used 




RSTRT50 






in the call at step 21. 






1 1 . A continuation checkpoint record 






contains the key value which is 






moved to the SSA for a qualified 
key caU. 






12. 




RSTRT62 


13. Write DLZ975I Restart complete. 




RSTRT70 


14. Write DLZ966I for normal program 




NXTDBP 


termination if there are no more 




NXTDB 


DB list entries to process. 








Figure 2-36. 


DB SCAN (DLZURGSO) (Part 4 of 8) 
















DLZUCDSO *"" '~~ ' 


: 


to be scanned. Return to step 
14 If not. 


^. 




(leflgi J 






> 16. Load Utility PSB. 








dlzucdso pstaddr 
1 lename 1 1 1 
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c — ^ 






DL/I Blocks 
and BuKers 

^ PRMPCBAD 






ASMTDLI 






dlzblkls 


DOS CIL 


for utility PSB 


1 A (BLDB) 












PST PDBN 


>■ 17. Find the PCB representing this 
data base. 








Ipst^b II 1 






1 


1 




PDIR PCB 


^■^ 


CALL Macro 












ASMTDLI 






1 PDIRADDR 1 1 DBPCBDBD | 


UNLD 




PSB 










PSBDBOFF 






PSBLIST 








PJCB 
PRMLST 


CURSGPTR 


PCB CURDBPTR 


J> 18 Sav« PCB ana JCB pointers. 




1 1 


1 DBPCBJCB 1 1 J 




Set up initial segment list 
entry. 




SSA 


JCB DLZUCDSO 










Hn^t 1 


JCBSDB1 


[ LESLPTR 1 




SDDi 1 


JCBSDBND 




A (PCB) 




CKPT Record 






1 1 
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DLZURGSO - DB SCAN CSECT 
Extended Description 



15. If DBS control cards were present, 
only those data bases in the control 
list that were on DBS cards are 
scanned. 

Write DLZ970I scan processing 
started. 

16. The DLZBLKLD macro moves the 
dmbname to PST at PSTPCPSB and 
sets the utihty suffix '4'. The 'BLDB' 
call loads all blocks for the PSB 
specified and allocates buffers. 

Write DLZ956I for a data base control 
block build failure. 

1 7. If a PCB is not found, an UNLD is 
done to release the buffers before 
the next BLDB call (return to step 
16). 




NXTDBA 
BLDBLKS 

NEWDB 



Extended Description 



DLZURGSO 

Routine Label 






Figure 2-36. DB SCAN (DLZURGSO) (Part 5 of 8) 

m INPUT aiii^^— 1^^-^-^ ■■ PROCESS 
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list entry 







JCBSDBND SDBPSDB 





PSDB 
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DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


Ubel 


19. The Control Data Set entries are 




NXTSEG 


modified to save SDB and PSDB 
addresses. 






Write DLZ969I if an SDB is not 






found for the segment in the segment 
list entry. 






20. The size is the longest needed for 
this data base. Any previous I/O 
area is freed. 




SETUP 
LENSEG 


21. Position is by a qualified key call. 




CRST 


22. The first segment list entry will 
either be the initial entry for the 
db or the segment list entry to 
restart from. 




PROC 


Write DLZ971I Scan processing 
completed for this DB if no more 
segment entries. 








19. Locate the SDB and PSDB for 
each segment list entry that 
is to be scanned for this db 
entry. 



20. Get I/O 



> 21. If restart, position the data 
base. 



22. Get a segment list entry, 
build a parm list for its 
segment type and continue to 
next step. At the end of 
entries, go to step 14. 



Figure 2-36. 


DB SCAN (DLZURGSO) (Part 6 of 8) 
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PRMLST 
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> 23. Issue a GN for segname. 








GN 
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A (PCB) 




1 segment | 
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A (I/O area) 


ASMTDLI 






A (SSA) 


GN segnanne 
to DL/I 




^^ ^ 


D^a B^4's 1 








PCB 
1 DBPCBSTC 




> 24. If there are no more occurrences 
of this segment type, go to 
step 22. 
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PST 








PSTFNCTN 




JCB PSTADDR 


PSTDSGA 


|JCBLEV1C|| 1 


> 25. Get buffer address of segment. 




PSTBYTNM 


LEV SDB 


— ^ ^ 










PST 


1 LEVTTR 1 1 SDBDSGA | 


^BALR ' 






DLZDBHOO 










1 PSTDATA 1 


PSTBYLCT 
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j SCDDDBHC 
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prefix + 
segment (in 
buffer) 






PSDB PST 


j DMBPTR 1 1 PSTDATA 1 












■ lDO> 
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> 26. Fill in parameter list for 








SEGM In 
buffer 




DLZDSEHO. 


'~^: 




CTR 




LFT ptr 






LTB ptr 




LP ptr 


A (LPCK) 


A (CDSREC) 


AT.ST - \ 


[> 27. Go write WORKFIL record. 


1 






ATEST 


P^^"^ List 
(R3) 




BALR 
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1» 


PST 


c ^ 


PSDB 


CTR 


DLZDSEHO 




|PSTWRKl| 


Jt 1 






LFT ptr 




^ 1 


1 DMBLST 1 


LTB ptr 








save •*■" 1 
registers WORKFIL | 




LP ptr 
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^ — ^ 


A (LPCK) 
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A (CDSREC) 
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DLZURGSO - DB SCAN CSECT 



Extended Description 


Routine 


L^bel 


23. Every occurrance in the data base of 




PROC20 


the LC or LP segment type to be 
scanned is read and a workfile record 






created for it. 






24. If the return code is 'GB', indicating 






EOF for this segment type, return 
to process next segment list entry . 






25. Scan must have the prefix information 
to give to DLZDSEHO. 




TEST 
TESTRSTA 


Write DLZ958I for a buffer handler 






error return. 






26. In addition, Rl 1 has the address of 




LPOFFR 


WORKFIL DTF, Rl has the PST 






address, and PSTWRKl has the 
'FUNCIHPS' and SDB address. 









Routine 


Label 


26. (con't) 

Test routine in DLZDSEHO will 
determine the output records required 
by scanning the SEC list. 

27. Registers are saved and then restored 
upon return. 

Write DLZ952I for an error return 
code from DLZDSEHO. 
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Figure 2-36. DB SCAN (DLZURGSO) (Part 7 of 8) 

pa INPUT — — — I r PROCESS ■ 



CHKPTLOC — 



] {dbpcbdbd" 



AWRKDSEH PCS 



] DBPCBMKL 



►28. Perform checkpoint operation if 
required. Otherwise, sicip to step 33. 



^29. Build checkpoint record. 



>30. Write checkpoint record to 
WORKFIL. 



ua. 



>31. Build the continuation checkpoint 
record. 



^32. Write continuation checkpoint 
record to WORKFIL. 



TRUNC Macro 



33. Return to step 23 to get next occurrance 
of this segment type. 



DLZURGSO - DB SCAN CSECT 





Routine 


Label 


28. A checkpoint record is written after 
every 'n' work file records, 'n' is 
specified on the CHKPT input card. 




CHKPT 


29. Note that the checkpoint record is 
built with zeros where the RBN 
number would be (CHKPTSUB). 
This forces an *C call (qualification 
by concatenated key) instead of 
*T (retrieve by direct address) 
during restart processing. Retrieve 
by direct address would be used if 
working with HI SAM data sets. 




CHKPT18 


30. 




CHKPT19 


31. 




CHKPT22 


32. Message DLZ967I is written to the 
console giving the current check- 
point record number for later 
reference. 




CHKPT24 


33. 




TLISTD 



Extended Description 




length of record 




Figure 2-36. DB SCAN (DLZURGSO) (Part 8 of 8) 
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> 34. Dump if non-zero error code 
and ABEND was on a control 
card. 

^^m^m PDUMP Macro 



35. Close all files. 



i CLOSE Macro 



> 36. Return. 
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DLZURGSO 

Routine 



DLZURGSO - DB SCAN CSECT 



Extended Description 




34. 

36. Indicate to batch initialization that 
UNLD is not necessary (R15 = 4) if 
this utility is terminating before any 
blocks were loaded or if there was a 
control block build failure. 




TERM 

Return 



Extended Description 



DLZURGSO 

Routine 
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figure 2-37. Prefix Resolution (DLZURG10) (Part 1 of 4) 



• INPUT 








From 
DOS/VS 
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1. Establish base addressability. 




P OUTPUT —i 










f R12 R8 


^^^^ OPEN Macro 

^^^^X COMRG and 
^^i^ GETIME Macros 




1 II 1 








f CNTLCARD 
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^ 2. Read control card and close SYSIPT. _ 


^ 






^H||||||L GET Macro 

^^^X CLOSE Macro 

> 3. Determine device type and open the 
CONTROL data set. 

^^^^ DLZDVCE Macro 
^^^^ OPEN Macro 








SVSIPT 










Card I/O Area 






CDSHD DBNAMEFC 






1 II 1 




CONTROL 
Data Set 


"^ 4. Read all control records. 


^ II 






^imi^ GET Macro 
^Hm^ GETVIS Macro 

5. Close the CONTROL data set. 

^I^m^ CLOSE Macro 




CONTROL 
Data Set 















Figure 2-37. Prefix Resolution (DLZURG10) (Part 2 of 4) 

INPUT MHiiBM^^aiaaa 



DLZURG10 - Prefix Resolution CSECT 





Routine 


Label 


1. Module identifier (DLZURGlOvrnp) 
is defined here. 


DLZURGIO 


DLZURGIO 


The time and date are acquired and 
message DLZ968I is printed at this 

execution for DLZURGIO. 






2. Write message DLZ954I for an input 
control card format error. 






3. Write message DLZ984I for an invalid 




CDSIN 
OPENCTL 


4. Write message DLZ957I if there is no 
control data set or if the ID is not 
"CONTROL DATA SET". 






Write message DLZ391I for a GETVIS 
failure. 






The maximum record length calculated 
by the prereorganization utility is 
obtained from field LESRTSZE and 
passed to SORT. 







Extended Description 



DLZURGIO 
Routine 



5. 




CDSEOF 
CDSEOFA 



Q 



Q 



CNTLCARD 



a 

WRKINnn 


"^^ ^ 



PARLST1 













VSE 
Core 
Image 
Library 



> 6. Determine device type and open firs 
input workflle and output files. 

flHIB DLZDVCE Macro 
MH^ OPEN Macro 


t 










a 

INDXWRK 






■j 


Q 

INTRMED 


BALR 


LOAD Macro 






SORT/MERGE 








data set if It was 

CLOSE Macro 

lips, go to Step 14. 


8. Close secondary index 
opened. 





DLZURGIO - Prefix Resolution CSECT 



Extended Description 


Routine 


Label 


6. The secondary or logical data sets may 




OPENRTl 


or may not be opened depending on the 




OPIND 


user option on the input control card. 




OPENLR 


7. Write message DLZ982I if the return 




SORTl 


code from SORT is not zero and go 






to Step 15. 






Sort is by (13, 255, A, 5, 1, A). Exits 






El 5 and E35 are described in Figures 






2-37.1 and 2-37.2. 






8. If there was no data put to the second- 




SORTUB 


ary index data set, put a dummy record 






before closing. 






9. 




SORTl IF 



Extended Description 



DLZURGIO 

Routine Label 
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Figure 2-37. Prefix Resolution (DLZURGIO) (Part 3 of 4) 



Figure 2-37. Prefix Resolution (DLZURG10) (Part 4 of 4) 
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10. Close intermediate file and 
determine device type and open 
for input. 

^■■^ CLOSE Macro 
^■^ DLZDVCE Macro 
^■1^ OPEN Macro 



11. Determine device type and open 
logical relationship output 
data set. 

^■1^ DLZDVCE Macro 
^|HB^ OPEN Macro 



12. Load and execute SORT/MERGE. 



LOAD Macro 



SORT/MERGE 



13. Print statistics and message 
summary if requested. 



DLZURGIO - Prefix Resolution CSECT 







SYS011 WORKFIL 




SYSLST 





■ 


CNTLCARD RTCD 




DUMP 


1 1 




Card I/O 
Area 









mt PROCESS > 



14. Dump if error code is 16 or 
8 and DUMP was specified on 
the control card. 



I PDUMP Macro 



15. Close the printer. 



16. Close INTERMED and WORKFIL if 
required. 



f 



I 



I 



Extended Description 


Routine 


Label 


10. 




SORTllD 
0PENRT2 


11. 




OPENWLR 


12. Sort is by (29, 16, A, 5, 1, A). Exits 






El 5 and E35 are described in Figures 






2-37.3 and 2-37.4. 






Write message DLZ982I if the return 




S0RT2 


code from SORT is not zero and go 






to Step 15. 






13. Control data set contains options as 




SUMM 


specified in DLZURPRO. 




STATFLG 




DLZURGIO - Prefix Resolution CSECT 
Extended Description 



14. Write message DLZ966I for normal 
program termination. 

15. 

17. 




STATENO 
CL0SRT2A 

CL0SRT2B 

CL0SRT2D 
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Figure 2-37.1. SORT E15 (DLZX15S1) 

■■ INPUT MMMUBi^^^-Biw^ ■■ PROCESS ■ 



Figure 2-37.2. SORT E35 (DLZX35S1) 




CNTLCARD 



1. Read worl(file records and p 
to SORT/MERGE. 



f SAVE Macro 
^ GET Macro 
f RETURN Macro 



2. At end-of-f ile, close worlcf iie 
and open next one, if any, and 
return to Step 1, 



I CLOSE Macro 
f OPEN Macro 



3. When no more worlcf iies, indicate 
end to SORT/MERGE. 




PARMADDR 
I ADD I 



PARMADDR 
I END I 



DLZX15S1 -SORTE15CSECT 



Extended Description 


Routine 


Label 


1 . Record length is changed to the maximum 
record length calculated by the prereor- 
ganization utility (DLZURPRO) and 
passed to SORT by the prefix resolution 
utility (DLZURGIO). Original record 
length is saved in last 2 bytes of LRECL 
field. 

Indicate ADD to SORT/MERGE after 
each GET. 

2. CNTLIFCis the number of input workfilej 
specified on the utility control card. 


DLZX15S1 


DLZX15S1 
EXIT15S1 

WRKEOFI 
NXTFILE 




^ 



SORT/ 
MERGE 




1. Establish address to record 
passed by SORT/MERGE. 



I SAVE Macro 



2. If the record address is zero, 
go to Step 7. 



3. Process record depending on 
record type. 



4. If logical relationships, 
write to intermediate file. 



5. If secondary indexing, write 
to SI output file. 



6. Indicate DEL to SORT/MERGE. 



RETURN Macro 



7. Indicate END to SORT/MERGE. 




INRECAD PARMADDR 


A (record) | | | 


Vdlzurwfi 













intermed ^ ^ 



QQ 

indxwrk ' 
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A (DEL) or A (END) 



CZ) 



DLZX35S1 - SORT E35 CSECT 



Extended Description 


Routine 


Label 


1. SORT/MERGE passes one record at a 
time to this exit. The record is repre- 
sented by the macro DLZURWFl which 
contains the DSECT defining the 
format. The original record length is 
restored before processing. 


DLZX35S1 


DLZX35S1 
EXIT35S1 


3. Macro DLZURWF3 contains the 
DSECT defining the format of the 
output logical record and later used as 
input for DLZURGPO. 




ESTTYPE 


Possible errors are: 






DLZ955I - Invalid input record. 
DLZ977I - Duplicate record for LP. 
DLZ978I - Caution - no LC for LP. 
DLZ979I - No LP found for LC. 
DLZ980I - No LC found for LT. 
DLZ989I - Multiple LC/U with no LT 
pointer specified. 






4. This file used as input for second 
SORT/MERGE. 




STATRIZ 
OUTPRVIA 


5. This is final output for secondary 
index relationships. 




TYPE04RT 



Extended Descriptioi 



6. SORT/MERGE gets another record and 
reenters this exit at Step 1 . 

7. 
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RETSORTl 
ENDSORTl 
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Figure 2-37.3. SORT E15 (DLZX15S2) 



DLZX15S2 - SORT E15 CSECT 

Extended Description 







From 
SORT/ 
MERGE 






INTERMED 








?■ 1. uet records from intermediate 






file and pass to SORT/MERGE. 

^I^HI^ SAVE Macro 
^IH^ GET Macro 












2. At end-off ile. indicate end ! 






to SORT/MERGE. 


To 

SORT/ 

MERGE 



PARMADDR 
A (Parm List) 



t 



Figure 2-37.4. SORT E35 (DLZX35S2) 

p INPUT «— i—i 



1. This file was written during first sort. 
2. 


DLZX15S2 


DLZX15S2 
EXIT15S2 

MEDEOFI 




I A (record) | 



From 

SORT/ 

MERGE 









^^ 


PARMADDR INRECAD 


^^ 


1 j 1 A (record) | 


1 . Establish address to record , 


1 Jd\ DLZURWF3 11 


passed by SORT/MERGE. 

^■■^ SAVE Macro 




1 




2. If the record address is zero, 
go to Step 6. 




3. Process record depending on 












record type. 














WORKFIL '"- ^ 


4. Write to LR output file. 


\ 


^[^^^ PUT Macro 




5. Indicate DEL to SORT/MERGE. 


To 

SORT/ 

MERGE 


PARMADDR 




RETURN Macro 


1 A (Parm List) | 
Parm List 




6. Indicate END to SORT/MERGE. — 


A (record) 






A (DEL) or A (END) 


^ 


RTCD 

1 1 















[ 



i 



DLZX35S2 - SORT E35 CSECT 
Extended Description 



1 . SORT/MERGE passes one record at a 


DLZX35S2 


DLZX35S2 


time to this exit. 




EXIT35S2 


3. Possible errors are: 




TP30RT 


DLZ955I - Invalid input record. 






DLZ980I - No LC found for LT. 






DLZ981I - Duplicate record for LT. 






4. This file used as input for the prefix 






update utility (DLZURGPO). 






5. SORT/MERGE gets another record and 




RETS0RT2 


reenters this exit at Step 1. 






6. 




ENDS0RT2 



Extended DesCTiption 
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Figure 2-38. Prefix Update Utility (DLZURGPO) 




Read control card. 



2. Determine device type and open 
input files. 



> 3. Read input record. 



4. If not already loaded, load data 
base control blocks. 



> 5. Process input record. 



6. At EOF, close all files. 



::> 



Q 



DLZURGPO - Prefix Update Facility 
Extended Descriptioi 



1. 

2. DLZDVCE macro obtains data from 
PUB. Device type may be TAPE or 
DASD. 

4. DLZBLKLD macro is used to load DB 
blocks dynamically. 

5. TYPE and TYPE 1 records (LC/LP) 
are processed by buffer handler calls. 
TYPE 4 records (SI) are processed by 
DL/I INSERT/UPDATE calls. 




OPENl 
OPENINP 

BLDBLKS 

TYPED 
TYPEl 



Extended Description 



DLZURGPO 

Routine Label 
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. Figure 2-39. Workfile Generator (DLZDSEHO) (Part 1 of 2) 



DLZDDLEO 
Figure 2-10 



From 

DLZURGSO 
Fig. 2-36 



I PROCESS ■ 



1. Perform initialization (Figure 
2-39.1.). 



I 1 




DBPCBKFD l/Oai 



y 



2. if DLZURGSO is caller, 

A. Initialize dummy reload 
prefix header with par- 
ameters. 

B. Store its address. 



3. If end of secondary list, go 
to step 7. 



4. Match control data set entry 
with LC or LP secondary list 
entry. 



5. If LP segment, 

A. Build Type 00 record. 

B. PuttoWORKFIL. 

C. Go to step 3. 



6. Go to Figure 2-39.4 to process 
LC segment. 



DLZDSEHO - Workfile Generator 



:> 



;> 



PSTUSER 

I A (I/O area) | 



J. WORKFIL 

_^ Record 



Rgura 2-39. Workfile Generator (DLZDSEHO) (Part 2 of 2) 

■■ INPUT I ■■ PROCESS -i— «— 



Extended Description 


Routine 


Label 


1 . This primary entry point is used by 
Load/Insert when a data base is being 
initially loaded or reloaded. There are 
7 fullwords of addresses immediately 
preceding this entry point used by 
modules that interface with 


DLZDSEHO 


INIT 


DLZDSEHO. A logical parent or 
logical child record is input to this 
module. 






2. This is the primary entry point for the 
scan utility. 




TEST 


3. This routine must be re-entered when 




TLISTEND 


the input segment is an LP because 
it could have more than one LC type. 






4. 




TESTC 


5. Description of WORKFIL record can 
be found in DLZURWFl dsect. 


DLZDSEHO 


LPl 


6. 




CHILD 




7. Exit with return code. 




i 



DLZDSEHO - Workfile Generator 
Extended Description 



7. If any error occured, call DL/I error 
message module to write DLZ007I 
message on console with return code. 




RETURN 







Label 
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Figure 2-39.1. Initialization 


DLZDSEHO 

From Fig. 
2-39 Step 1 


) 




-OUTPUT. 




, 


R1 PSTWRK1 


-" 


> 1. Establish addressability for 
DL/I tables needed. 




/ 




1 ||.,SDB. 1 


Y 








2. If WORKFIL is not open, go to 




pZ> V 






Figure 2-39.2 to open It. 






y . 














WORKFIL 


> 3. Open Control Uata J>et and read 




II> 








all records. 






Control 










Control 


Data Set 




4. Close Control Data Set. 


To Fig. 2-39 
Step 2 




Data Set 



Figure 2-39.2. Open Workfile (DLZDSEHO) 

p INPUT mmmmm^mmmmm 



DLZDSEHO - Workfile Generator 



Extended Description 


Routine 


Label 


1 . The secondary list entries for the input 


DLZDSEHO 


INIT 


segment are the primary source of 






information from the DL/I blocks. 






2. The address of the DTF is found in 






the address list at the beginning of 






DLZDSEHO. If it is 0, this workfile 






must be opened. 






3. This open is done only once. The 




LPLCA 


'FINDDTF' routine is used to 






determine the correct DTF. If more 






than one record exists on the CDS, 






a GETVIS is done to hold the entire 






file in storage at one time. 








i A (regsave) | | A (return) | 



1. Establish addressability. 

2. Set up input for FINDDTF. 

3. Get DTF address (Figure 2-39.3). 

4. Open DTF for WORKFIL. 

5. Save DTF address. 

6. Exit to R14 + 4. 



RO 




|SYS#13 




A (disk 
DTF) 


j A (tape DTF) | 







Q Q 

WORKFIL SYS013 



^ Entry P 



DLZDSEHO - Workfile Generator 



Extended Description 


Routine 


Label 


Note: This routine is called by DLZDSEHO, 




1 


DLZDXMTO, and DLZURGSO. 






1. 


OPENWORK OPENWORK 1 


3. If control is returned to address in 






R14, an error occurred. R14 + 4 is 






the normal return. 






4. Rl 5 has address of correct DTF as 






returned by FINDDTF. 






5. When the WORKFIL is open, the 






address is saved in the address list in 






the beginning of DLZDSEHO csect. 






6. If an error was detected, control is 




OPENEXIT 


returned to the address in R14. 






Normal return is R14 + 4. 
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Figure 2-39.3 Find DTF (DLZDSEHO) 












(See Note) 








RO 





► 1. Issue DLZDVCE macro. 




,__^ Pubentrji 




system 
number 








1 1 














S 2. If a tape, set R1 5 to tape 


> Hib 1 




A (tape DTF) | 




DTF address. 




1 A (tape DTF) | 
•- DTF 












> 3. If a disl(. 














A (disk DTF) 1 


1 1 








B. Set R15 to disk DTF address. 




*^ R15 


4. If other than tape or disk, 
go to step 6. 

5. Exit to R 14 + 4. ^^ 


Return to 
Caller 


1 A (disk DTF) | 


R |f IRIM sPt RIRtoTPrn . , 




"^ R15 


7. ExittoR14. ■■ 


Return to 
Caller 


' 1 1 











Figure 2-39.4. Build LC Output (DLZDSEHO) 



DLZDSEHO - Workfile Generator 





Routine 


Label 


Note: This subroutine is called by 






OPENWORK, DLZDSEHO, and 






DLZURGSO. DLZDVCE macro finds 






PUB entry for given programmer logical 






unit and the device type byte is used to 






determine further processing. 






1. 


3PENW0RK 


FINDDTF 


2. 2400, 3410, and 3420 are supported. 




FINDTFO 


3. 2314, 3330, 3340A & B, 3350, and 




FINDTFl 


3375 are supported. 




FINDTF2 


5. Normal return. 




FINDEXIT 


6. This allows DLZDXMTO to build 




FINDERRX 


secondary entries. 






7. This is the error exit. 




FINDERRU 



Extended Description 




Q 



Q 



1. Build type 10 record and 
writeittoWORKFIL. 



DLZDSEHO - Workfile Generator 
Extended Description 



2. If LTF pointers and non-unique 
sequence field, build and write 
type 20 record. 



V ^ 3. If LTB pointers and non-unique 
^ sequence field, build and write 
type 30 record. 



-•^ WORKFIL 
Record 
|tYpe10 I 



-V^ WORKFIL 
Record 



To Fig. 
2-39 
Step 7 



:> 



1. 

2. 
3. 




CHILD 
LCI 

LCI 20 A 

LC130B 



Extended Description 



DLZDSEHO 

Routine Label 
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Figure 240. Log Print Utility (DLZLOGPO) 

■ INPUT I From ff- PROCESS ■ 



Figure 2-40.1. Control Statement Processor (DLZLPCCO) (DLZLOGPO) 




1. Read and process control cards. 



If any errors detected by DLZLPCCO, 
go to Step 9. 



2. Open output log if requested. 



3. Determine log device type and 
open log file. 



4. Read log records, deblock, and 
determine record type. 



DLZLOGPO - Log Print CSECT 



Extended Description 


Routine 


Label 


I . Register 1 points to log print common 
area. 


DLZLOGPO 


GETCARD 


2. Output log requested by 'COPY' on 
'LO' statement. 




CARDEOF 


3. DLZDVCE macro obtains data from 
PUB (physical unit block) and modifies 
DTF. If VSAM log, ACB is modified 
manually. 




LOGOPEN 


4. Valid DL/I record types are: 




GETLOG 


o Data base record (X'50' and X'51') 

Open record (X'2F') 

Scheduling record (X'08') 

o Termination record (X'07') 

o Checkpoint record (X'41') 






5. Records are printed in either keyword 
or dump format. 




PRINT 


6. Log records are written to tape as read. 




GETREC 


7. nn of LOGINnn is incremented by I 
if more files. 




LOGEOF 


8. Output log is closed when log record 
in error is encountered. 







5. Print log records. 



6. Write log records to tape if requested. 



7. Close input log file. If more files, 
return to Step 3. 



8. Close output log if requested. 



9. Print informational statistics 
and error messages, if any. 



Extended Description 




■ OUTPUT — 






SYSLST 

Q 

LOGOUT 












SYSLST 

^nd/or 

r 


SYSLOG 




II 


1 




'lo P 



r PROCESS ■ 



> 1. Read control statements. 



2. Validate control statements and save 
information in log print common area, 



3. Return to DLZLOGPO. 



y Log Print Common Area 

















DLZLOGPO - Log Print CSECT 





Routine 


Label 


1 . Possible card types are: 


DLZLPCCO 


GETCARD 


'LO' — describes print options, 






'LS' - describes additional selective 






print options, 






'LI' - describes input log files. 






2. Flag ERROROCC in LOGPFLGl is set if 




LOOOO 


any errors are detected. 




LIOOO 
LSOOO 


3. If no input statements received, print 




CARDEOF 


default message DLZ41 61. 







Extended Description 



Routine Label 



o 



o 






^^w 



o 



o 



o 



o 



o 



Figure 2-41. Field Level Sensitivity Copy (DLZCPY10) 



A (User Segment) 



A (Output 1/0 Area) 




r PROCESS ■ 



DLZCPY10 - Field Level Sensitivity Copy 



1. Get addresses of user segment(s) and 
output I/O area. 



2. Calculate segment offset in output I/O 
area for this level. 



3. If segment at this level is not FLS, move 
as is from user I/O area to output I/O 
area. 



4. If segment at this level is FLS and call 
is ISRT, perform insert processing. 



5. If segment at this level is FLS and call 
is REPL, perform replace processing. 



6. If another level to process, go to step 2. 
Otherwise, point PSTUSER to output 
I/O area and return. 




Figure 2-41.1. Field Level Sensitivity insert (DLZCPY10) 

INPUT ■ From Figure T PROCESS - 

2-41 Step 4 




1. Determine physical length of segment 
to be inserted. 



2. Clear segment to binary zeros. 



3. Scan FOB chain and, if segment is a logical 
child, the SEC chain to locate all fields for 
the segment. Move default value to output 
I/O area for each non-key field. 



4. If concatenated segment, scan destination 
parent FOB chain to locate its fields. Move 
default value to output I/O area for each 
non-key field. 

5. Call DLZSEGCV. 



If conversion error, return status code 
to user. 



Figure 2-8.1 
Step 9 



S. 
B 



DLZCPY10 - Field Level Sensitivity Copy 



Extended Description 


Routine 


Label 


1 . PSTUSER points to user's view of 
segment(s). PSBIOAWK points to 
1/0 area to contain physical view of 
segment(s). 


DLZCPYIO 


DLZCPYIO 


2. LEVUSEOF will be changed from 
offset in user I/O area to offset in 
output I/O area. 




LEVLOOP 


3. Lengthof segment to be moved 
must be determined. If variable 
length segment, length is in first two 
bytes of segment, otherwise in PSDB. 
If concatenated segment, logical child 
and destination parent lengths must 
be added. 




LEVOOO 


6. 




NEXTLEV 



Extended Description 


Routine 


Label 









Extended Description 


Routine 


Label 


1 . If variable length segment, use insert 
length in SDB expansion block. 
Otherwise use length in PSDB. 
If concatenated segment, logical 
child and destination parent lengths 
must be added. 


DLZCPYIO 


ISRT 


2. 




ISRT 100 


3. 




ISRT 105 


4. 




ISRT 180 


5. Possible status codes are KA, KB, KC, 
andKD. 




SEGCV 



Extended Description 


Routine 


Label 
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Figure 2.41.2. Field Level Sensitivity Replace (DLZCPY10) 

INPUT I From Figure ^ PROCESS i^^— 



^ 



1 . Read segment to be replaced 



and move to output I/O area. 



2. If concatenated segment, read 
destination parent segment. 



3. Call DLZSEGCV. 



If conversion error, return status 
code to user. 

4. If REPLACE=NO option specified, scan 
FSB chain and compare new field 
to old field. If field modified, return 
status code to user. 



H 



7^ 



Return to 
Figure 2-8.1 
Step 9 



Figure 2-41.3. Field Level Sensitivity Segment Convert (DLZSEGCV) 

■■ INPUT mm^m^m^ 



From Caller T PROCESS - 
See note. 



^ 



1. The SOB is used to locate the SOB 
expansion block and the first FSB. 



2. If SSA call, compare SSA field name to 
FSB field name. If no match, go to 
step 7. 



3. Initialize FER fields and set to and 
from parameters. 



4. If to and from types different, convert 
field to desired format. 



5. Move field to destination. 

6. Call user field exit routine, if any. 



If error indicated in FER, return error 
code to caller. Z 



7. If another FSB to process, go to step 2^ 
Otherwise, return to caller. 




DLZCPY10 - Field Level Sensitivity Copy 



DLZSEGCV — Field Level Sensitivity Segment Convert 



Extended Description 



1. 

3. Possible status codes are KA, KB, KC, 
and KD. 

4. Status code KE is returned. 


DLZCPYIO 


REPL 
SEGCV 

REPL135 



Extended Description 


Routine 


Label 









Extended Description 


Routine 


Label 


Note: DLZSEGCV is called by 
DLZCPYIO and DLZDLROO. 






1. 


DLZSEGCV 


DLZSEGCV 


2. DLZDLROO makes SSA call to 
convert SSA user field to physical 
view. Only this field and its 
subfields will be converted. 




FSBLOOP 


3. 




FSBOIO 


4. 




CONVERT 


5. 




MOVE 


6. Possible error codes are A, B, C, 
andD. 




USEREXIT 


7. 




NEXTFSB 



Extended Description 


Routine 


Label 
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Figure 2-42. Trace Print Utility (DLZTPRTO) 



Figure 2-43. DL/I Run and Buffer Statistics (DLZSTTL) 



SYSIN 




From 
VSE 




y 






















"-V 






f~ - 










DISKIN 

Q 

TAPE IN 









1. Open reader, printer, and console log. 






> 2. Read and validate control statements 
if present. 


'*s 




SYSLST 
















3. Close reader. 






4. Acquire storage for input buffers. 






5. Check trace input device type, modify 
DTF, and open it. 






> 6. Read trace input. 






7. Check trace entry against TO 
selection, if specified. 

8. Format and print trace output. 






SYSLST 




> 










9. Close all files and issue any statistical 


\ 


1 




H| 


SYSLST 




X 

Return to 
VSE 


SYSLOG 





DLZTPRTO - Trace Print Utility 



•-Extended Description 



Extended Description 



I 



2. Reads TI statement if present and 
prints card image on SYSLST. If any 
other type statement is present, it is 
also printed, but no further processing 
ofit takes place. 


DLZTPRTO 


READCARD 


4., Storage is acquired for two input 
buffers. 




GETSTOR 


5. ihe DLZDVCE macro is used to 
validate the trace input device, and 
modify the tape or disk DTF. 




CKDEV 


6. The unformatted trace records are 
read from the trace input file until 
EOF is returned. 




GETENTRY 


8. The trace entries are formatted arid 
printed one at a time until all entries 
in the record are processed. Control 
is then passed to step 6 for the next 
record. 




PRTRACE 




^ 2. Edit and put out run statistics. 



1. Establish addressability. Acquire 
working storage. 



3. Convert buffer statistics to packed 
decimal. 



4. Edit and put out buffer statistics. 

5. Convert one byte numbers to fullword, 
then to packed decimal. Edit and put 
out configuration statistics. 



6. issue message to terminal. 



7. Return to CICSA/S. 



rF 



^ 



\ 



B 



DLZSTTL - DL/I Run and Buffer Statistics 



Extended Description 



Extended Description 



1 . Entry is from CICSA^S when the user 
enters the transaction code 'CSDE' or 
when the CICS/VS master terminal 
operator issues the 'CSMT SHUT- 
DOWN' command. R12 contains 

the TCA address, R13 contains the 
CSA address, and R14 contains the 
entry point address. 

2. The CICS/VS macro DFHSC is used to 
acquire storage for the transient data 
output area (TDOA). 

3,4,5 Internal subroutine STTLPUT 
writes the statistics to the CSSL 
extra-partition transient data set, 
using the DFHTD macro. 

6. If DL/I is not active, issue message 
DLZ280I using the DFHWTO macro. 

7. Use DFHPC macro to return to 
CICSA^S. 
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Figure 2-44. Partial Data E 
INPUT |_i,Mi.— > 



Reorganization (Overview) 
r PROCESS <^— 



1. PARTI Control. 
(See Figure 2-44.1) 

2. Action Table Build. 
(See Figure 2-44.2) 

3. Cleanup. 

(See Figure 2-44.3) 

4. DBD Analysis. 
(See Figure 2-44.4) 

5. PSB Source Generator. 
(See Figure 2-44.5) 

6. PARTI Report Generator. 
(See Figure 2-44.6) 

7. Parameter Analysis. 
(See Figure 244.8) 

8. Error Message Writer. 
(See Figure 2-44.16) 

9. PART2 Control. 
(See Figure 2-44.7) 

10. Parameter Analysis. 
(See Figure 2-44.8) 

11. Scan Control. 
(See Figure 2-44.9) 

12. Update Prefix. 
(See Figure 2-44.10) 

13. Sort Control. 

(See Figure 2-44.11) 

14. Unload/Reload Control. 
(See Figure 2-44.12) 

15. Workfile Manager. 
(See Figure 2-44.13) 

16. DL/I Services. 

(See Figure 2-44.14) 

17. Statistical Writer. 
(See Figure 2-44.15) 

18. Error Message Writer. 
(See Figure 2-44.16) 



Extended Description 


Routine 


Label 




DLZPRCTl 






DLZPRABC 






DLZPRCLN 






DLZPRDBD 






DLZPRPSB 






DLZPRREP 






DLZPRPAR 




8. 


DLZPRERR 




9. 


DLZPRCT2 





Extended Description 


Routine 


Label 


10. 


DLZPRPAR 




11. 


DLZPRSCC 




12. 


DLZPRUPD 




13. 


DLZPRSTC 




14. 


DLZPRURC 




15. 


DLZPRWFM 




16. 


DLZPRDLI 




17. 


DLZPRSTW 




18. 


DLZPRERR 
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Figure 2-44.1. PARTI Control (DLZPRCT1) 
m INPUT ■MBBMH—^.i-^ I* PROCESS ■ 



I 

S3 






f 



IDLZPRWFM 





IDLZPRPAR 1 




Idlzprdbd 1 


[dlzprabc I 




Idlzprpsb I 


Idlzprrep I 




Idlzprcln I 





IcOMAERRs] 
R15 



"T" 
i 



1. Get storage for control tables. 



> 2. Load service modules and save entry 
points in COMAREA. 



> 3. Initialize name of primary data base. 

4. Indicate Part 1. 

5. Link to each phase in Part 1. 



6. Check for error on completion of each 
phase. If error, issue message DLZ635i 
and return to caller. 



I_ .^ y 7. Continue to completion of each phase 
in link list. 



v^ Idbtcname { 



jj COMAREA 

vP lcOMGPART I 







DBT 




SGT 


ACT 


RGT 











COMAFILE 




COMAERRS 







DLZPRCTI - PARTI Control 



Extended Description 



Extended Description 



1. DBT -data base table. 

SGT - Segment table. 

ACT - action table. 

RGT - range table 
DOS/VS GETVIS issued. 

2. The common area (COMAREA) is part 
(CSECT) of this module and is not 
dynamically acquired. 
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Figure 2-44.2. Action Table Build (DLZPRABC) (Part 1 of 4) 



ICOMAERRS I ■ 1 



ISGXOLP I 



■■ PROCESS > 



T 
I 



> 1 . Get address of SGT, ACT, and DBT. 



2. If SGT entry count is negative, issue 
message DLZ615I. 



mH^k 


DLZPRERR 




Error 
message 


3. If ACT entry exceeds limits, issue 
message DLZ623I. 


4H 


DLZPRERR 


Error 

message 

writer 



• ^ 4. If this segment is not a logical parent 
or a logical child that have logical 
pointers to a segment that is moving, 
exit. 



5. Create ACT entry 'K' and scan action 
record for logical child's logical parent 
pointer update. 



I 



Figure 2-44.2. Action Table Build (DLZPRABC) (Part 2 of 4) 
INPUT I r PROCESS 



I Segment table r 



h-r-5- 



r" 



r-' 



6. If this segment is not a virtually paired 
logical child whose logical parent is 
moving and there is a direct logical 
parent pointer, exit. 



7. Create a 'C action entry type and an 
optional 'K' action entry for logical 
parent pointer update. 



8. If this segment is not a logical child 
that is moving and is in a virtually 
paired logical relationship, and there 
are logical twin forward but no logical 
twin backward pointers, exit. 



9. Create 'Q' and 'K' action entries 
for logical twin forward and logical 
child forward pointers. 



10. if this segment is not a logical parent 
of a logical child, which have logical 
pointers to a segment that is moving 
and are pointed to by the segment 
that is moving, exit. 



1 



DLZPRABC - Action Table Build 
(^Extended Description 



Routine Label 



4. 'K' action records. 


DLZROWOl 







Routine 


Label 









DLZPRABC - A«ion Table Build 



Extended Description 



Extended Description 



7. 
8. 


DLZROW02 

DLZROW03 
DLZROW04 
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Figure 2-44.2. Action Table Build (DLZPRABC) (Part 3 of 4) 

p INPUT aHMBB^-BMB^iiH ■■ PROCESS — »-^ 
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DLZPRABC - Action Table Build 
Extended Description 



I 



§ 



I 



h 



L : 



11. Create 'P' action entries for logical 
twin forward, logical twin backward, 
and logical child forward pointers. 



12. If this segment is not a logical child 
whose logical parent is moving and 
which has a logical relationship in 
which both the logical child and its 
paired logical child have direct logical 
parent pointers, exit. 



13. Create 'I' and 'K' action entries for 
paired logical child's logical pointer 
update. 

14. If this segment is not a secondary 
index source segment, a target 
segment of a secondary index re- 
lationship, or a secondary index 
source segment that is moving, and 
has an /SX/ specified, exit. 



15. Create 'B', 'R', and 'S' action 
entries. 

16. If this segment is not a moved 
target segment of a secondary 
index source segment, exit. 



FV>0 



Figure 2-44.2. Action Table 

m INPUT Maaaii^a*— »— 



Extended Description 



11. 

12. 
14. 
16. 


DLZROW05 
DLZROW06 

DLZR0W13 

DLZR0W16 

DLZR0W19 
DLZROW20 






Build (DLZPRABC) (Part 4 of 4) 

p PROCESS — — 



SGT 

Isegment table] 



COM ARE A 
I 1 



T 

I 

I 
1 



17. Create 'J', 1'. and 'B' action 
entries. 



18. if this segment is not a logical parent 
or logical child that is moving, exit. 



19. Create 'A' action entry. 



20. If there are more action table entries 
to process, go to Step 3. 



21. Check return code. 



22. If return code is greater than zero, 
issue message DLZ615I. 
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23. Return to caller. 
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DLZPRABC - Action Table Build 
Extended Description 



Extended Description 
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Figure 2-44.3. Cleanup (DLZPRCLN) 
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6. Write SGT to control. 
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9. Get address and length of RGT. 
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Figure 2-44.4 DBD Analysis (DLZPRDBD) (Part 1 of 2) 
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Figure 2-44.4. DBD Analysis (DLZPRDBD) (Part 2 of 2) 
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DLZPRDBD - DBD Analysis 
Extended Description 



Extended Description 



1 . If DBD is not in core image library. 
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issue message DLZ612L If DBD is 






not HD, issue message DLZ613I. 
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KEYRANGE is for HDAM, issue 






message DLZ604I. If HI/LO block 
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message DLZ645I. 






2. If error, issue message DLZ614I. 
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11. Process the SGT entries. Insert the 
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12. Process the SGT entries for all segment 
entries in HD data bases. Calculate 
physical child pointer offsets in the 
physical parent segment prefix for 
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^13. Step through the DBD's SEGTAB and 
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and SGT entries and insert the 

physical child pointer offsets. 
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DLZPRDBD - DBD Analysis 



Extended Description 



Extended Description 



9. If enor, issue message DLZ615I. 

1 1 . If error, issue message DLZ616I. 

14. R15 contains the return code. If an 
error message has been issued, Rl 5 
does not equal zero; if an error 
message has not been issued, RIS 
equals zero. 
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Figure 2-44.5. PSB Source Generator (DLZPRPSB) 
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5. If prime data base can be scanned, 
generate alternate DBT and PCB 
and punch card images. 



6. Loop until PCBs are created for all 
DBT entries. 



. 2 ► 7. Punch final cards for PSB. 



8. Return to caller. 



DLZPRPSB - PSB Source Generator 
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1 . If PSB is not generated, issue message 
DLZ627I and return to caller. 
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1. Print header for range values. 

2. If KEYRANGE is present, print 
KEYRANGE values. If KEYRANGE 
is not present, print FROMAREA 
values. 

3. Print all TOAREA values for 
KEYRANGE/FROMAREA. 

4. Loop until there are no more 
RGT entries to process. 

5. Print header for the required 
segment to scan. 

6. If a segment is required to be 
scanned, print the segment, else 
print segment not found message. 

7. Loop until all SGT entries have 

8. Print header for optional segments 
to scan. 

segment, else print segment not 
found message. 

10. Loop until all SGT entries have 
been processed. 

11. Return to caller. 
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DLZPRREP - Report Writer 
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Figure 2-44.7. PART2 Control (DLZPRCT2) 
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1. Load service modules and save entry 
points. 

2. Read in COMAREA from control 
DTF. 

3. Restore all addresses in the 
COMAREA that are new for 
PART2. 



4. Get storage for CONTRO L tables. 



5. Read CONTROL tables from 
CONTROL DTF. 



6. Move PCB addresses, passed by 
DL/I at invocation, into the 
COMMON area for PART2 
processing. 



7. Print header line on SYSPR I NT. 



8. Link to each phase in PART2. 

l^ 9. Check for error on completion of 
each phase. 



10. Issue completion message and close 
CONTROL, SYSPRT, and SYSIN. 



11. Return to caller. 
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4. VSE GETVIS is issued. If an error 
occurs, issue message DLZ639I and 
return. 
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5. If error, issue message DLZ634I 
and return. 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 1 of 4) 
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1. Read job control. 

2. If KEYWORD=DBNAME, DB=HD, 
and DBD exists, initialize for primary 
DBD. 



3. If KEYWORK=KEYNAME, DB=HIDAM, 
and operand is valid, initialize for 
KEYRANGE. 



4. If KEYWORD=FROMAREA, DB-HDAM. 
and operand is valid, initialize for 
FROMAREA. 



DLZPRPAR — Parameter Analysis 
Extended Description 
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Extended Description 



1. 

2, 3, 4 If error occurs, set Rl 5 not 
equal to zero and PCL (FARM 
Control Table) equal to type of 
error. 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 2 of 4) 
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5. If KEYWORD=TOAREA and operand 
is valid. Initialize target area. 



6. If KEYWORD^PSB initialize for PSB. 



7. If KEYWORD=SORTOPT and 
opearand is valid, initialize sort 
options. 



8. If R15 does not equal zero and invalid 
KEYWORD is indicated in PCL, issue 
error message. 



9. If R 15 does not equal zero and illegal 
continuation indicated in PCL, issue 
error message. 



DLZPRPAR - Parameter Analysis 



Extended Description 
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5, 7 If error occurs, set R15 not equal 
to zero and PCL equal to type of 
error. 

8 . If error , issue error message 
DLZ602I. 

9 . If error , issue error message 
DLZ603I. 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 3 of 4) 
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10. If R15 does not equal zero and 
KEYWORD=FROMAREA for 
HIDAM or KEYWORD=KEYRANGE 
for HDAM is indicated in PCL, issue 
message DLZ604I. 



11. If R 15 does not equal zero and 
required KEYWORD missing is 
indicated in PCL, issue message 
DLZ605i. 



12. If R 15 does not equal zero and invalid 
KEYWORD in previous statement is 
indicated in PCL, issue message 
DLZ606I. 



13. If R15 does not equal zero and 
KEYWORD previously specified is 
indicated in PCL, issue message 
DLZ608I. 

14. If R 15 does not equal zero and 
KEYWORD=FROMAREA and 
KEYWORD=KEYRANGE is 
indicated in PCL, issue message 
DLZ609I. 



15. If R15 does not equal zero and invalid 
operand for KEYWORD is indicated 
in PCL, issue message DLZ610I. 



16. If R15 does not equal zero and more 
than ten ranges are indicated in PCL, 
issue message DLZ611I. 
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Figure 2-44.8. Parameter Analysis (DLZPRPAR) (Part 4 of 4) 
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17. If R15 does not equal zero and no DBD 
exists for the DBNAME specified, issue 
message DL612I. 



18. If R 15 does not equal zero and DBD not 
HD is indicated in PCL, issue message 
DLZ613I. 



' IS. If R15 does not equal zero and data set 
specified on TO ARE A statement does 
not match DBD, issue message DLZ614I. 

20. If there is more JCL to process, go to 
Step 1. 



21. Return to PARTI or PART2. 
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DLZPRPAR - Parameter Analysis 
Extended Description 
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Figure 2-44.9. Scan Control (DLZPRSCC) 
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1. initialize workfile 2 and workfile 5 witli 
put request. 



2. if SCAN required, get data base segment. 



3. If T' type record, format an index work 
record {'XWR'). 



^ 4. If action required, format a data work 
record {'DWR'). 



'5. If no more actions for this segment, get 
next segment. 

* 6. Continue processing until end of data. 



7. Return to PART2 control. 
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DLZPRSCC - Scan Control 
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1 . If bad return from DL/I, issue 
message DLZ653I. 

6. If error, issue message 
DLZPR653I. 
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Figure 2-44.10. Update Prefix (DLZPRUPD) 
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4. Process data work records and log 
changes until all are processed. 



5. Read index work records from workfile 
9. 



6. Process index work records until all 
are processed. 



I ^ ^ 7. Close all workfiles and return to 

PART2 control. 
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4. If error, issue message DLZ650I or 
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Figure 244.11. Sort Control (DLZPRSTC) (Part 1 of 2) 










COMAREA 


Figure 
2-44.7 


> 1 . Move user options to the SORT 

> 2. If S0RT1 is required, call SORT with 

data work records from reload and so 






S0RT1 PLIST 


1 t 








M ' 








»« 


COMAREA 

A 1 


COMAREA 
1 1 


FCB 




an 




COMAREA 


1 1 


residing on workf ile 2. 


SORT1 f LIST 


j OPTIONS } 






#4 


SORT 




DLZPRWFM 




Work File 
manager 


COMAREA 

1 1 








FCB 


"^ 


L 3. If S0RT2 is required, call SORT with 
data records from reload and S0RT1 


— 




>l 1 

COMAREA 


1 1 








S0RT2 PLIST 


residing on workf ile 3. 


1 1 






♦^ 


SORT 




♦-♦ 


DLZPRWFM 




Work file 
manager 


COMAREA 


1 1 








FCB 




L 4. If S0RT3 is required, call bORT witn 


— " 




U 1 


1 1 




ng 






S0RT3 PLIST 


on workfile 4 and from scan residing 
on workfile 5. 


1 1 






^ 


SORT 




♦-► 


DLZPRWFM 




Work file 
manager 









Figure 2-44.11. Sort Control (DLZPRSTC) (Part 2 of 2) 
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, 5. If S0RT4 is required, call SORT with 
index records from SORTS residing 
on workfile 8 and from the DL/I index 
maintenance file residing on workfile 
6. 



6. Return to PART2 control. 
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DLZPRSTC - Sort Control 



LExtencfed Description 
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Extended Description 
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2, 3, 4 If enor, issue message DLZ647I. 


DLZPRERR 
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SORTIREQ 




3. SORTl and S0RT2 process data work 






records exclusively. Input to SORTl is 






from reload and scan, and input for 






S0RT2 is from reload and SORTl. 






Together these routines save the new 






RBA of the segment moved in the 






associated work records and arrange 












in the data bases. 







Extended Description 



Routine Ldsel 



4. 

DLZ648I, or DLZ649I. SORTS and 
S0RT4 process index work records 
exclusively. Input to SORTS is from 
reload and scan, and input to S0RT4 
is from the DL/I index maintenance 
file and SORTS. Together these 
routines eliminate index work records 
that are not involved in update, con- 
vert the DL/I index maintenance 
records into partial reorganization 
format, and arrange the index work 
records in physical sequence. 
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N> Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 1 of 3) 
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using FCB6. 



f^ 2. For HDAM, ensure starting ranges 
are in the root addressable area. 



> 3. If HDAM, initialize the running 
environment for HDAM. 
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DUZPRURC - Unload/Reload Control 



Extended Description 



Extended Description 



1 . If enor, return to caller with return 






code greater than zero. 






2. DPRWFMIF is the interface routine 


DPRWFMIF 




to Workfde Manager (DLZPRWFM). 






When I/O required, checks return 






code and saves the highest code. 






3. DPRDUSV is the interface routine 


DPRDUSV 




to DLI Services (DLZPRDLI). On 






return, checks the return code and 






saves the highest code. 






Open data base, set end process values 


DPRHDAMI 




in common area, check the RGT, and 






position DB at the beginning of the 






range. 






If error, issue message DLZ646I. 
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Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 2 of 3) 
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4. If HI DAM, initialize the running 
environment for HIDAM. 



^ 5. If unload, process segments within 
^ specified range. 



^ 6. If reload, read segment dump 
records, pass them to DLI to 
insert into DB, and update 
statistics. 



DLZPRURC - Unload/Reload Control 
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4. DPRDUSV is the interface routine 
to DLI Services (DLZPRDLI). On 
return, checks the return code and 
saves the highest code. 


DPRDLISV 




Opens data base, sets end process 
test values in common area, and 
positions DB at beginning of 
range. 


DPRHIDMI 




If error, issue message DLZ646I. 


DLZPRERR 




5. Unload segment to dump file, free 
space occupied by each unloaded 
segment, and update the statistics 
information for the unload pro- 
cessing. 






DPRDLERR is the interface 
routine to error message writer 
(DLZPRERR). 


DPRDLERR 




If enor, issue message DLZ653I. 
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6. DPRDLISV is the interface routine 
to DLI Services (DLZPRDLI). On 

return checks the return code and 
saves the highest code. 

DPRDLERR is the interface routine 
to Error message writer (DLZPRERR). 

If error, issue message DLZ653I. 
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Figure 2-44.12. Unload/Reload Control (DLZPRURC) (Part 3 of 3) 
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Figure 2-44.13. Workfile Manager (DLZPRWFM) 
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DLI Services (DLZPRDLi) (Part 1 of 5) 
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DLZPRDLI - DLI Services 
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2. A 'GIT or 'GNP' caU must be the last 
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regular call to DLI before making this 






request. 






3. The call to DLI immediately preced- 


DLI02 




ing this call must have been an 'ISRT' 
call to the primary DB. 










4. If enor, issue message DLZ636I 


DUOS 




or DLZ61 51 and branch to SCD 


DLZPRERR 




ABEND routine. 








DLZPRDLI - DLI Services 



Extended Description 


Routine 


Label 


5. If enor, issue message DLZ636I or 
DLZ615I and branch to SCD ABEND 
routine. 


DLZPRERR 




6. If enor, issue message DLZ636I or 
DLZ615I and branch to SCD ABEND 
routine. 


DLZPRERR 




8. Last call to DLI must have been a 
'GU' or 'GN' for the prime DB. 


DUOS 
DLZFRSPO 
DLZRDBLO 
DLZPRERR 




If enor, issue message DLZ655I. 






9. 
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DUOS 





Extended Description 



Figure 2-44.14. DLI Services (DLZPRDLI) (Part 2 of 5) 
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L 8. If request code equals 07, free space -^ 
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HIDAM root with no PTB pointer, 
relink the twin chain from the RAP. 
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non-zero root anchor point beginning 
at a given block number Mid retrieve 
the first root segment chained from it. 
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Figure 2-44.14. DLI Services (DL2PRDLI) (Part 3 of 5) 
INPUT ■»■»>«— i»i^«- -• PROCESS iMi— • 
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10. If request code equals 09, log data 
before change. 



11. If request code equals DA, log data 
after change. 



12. If request code equals OC, compress 
segment processing. 



13. If request code equals OD, mark index 
buffer altered. 



14. If request code equals OE, update the 
current range limits. 



DLZPRDLI - DLI Services 
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Figure 2-44.14. DLI Services (DLZPRDLI) (Part 4 of 5) 
■■ INPUT ■HBHiiiii^M»HM| ■■ PROCESS 't^ 



Extended Description 


Routine 


Ubei 


10. Request must follow request type 
01 (get prefix address) or request 
type 05 (byte locate and mark 
buffer altered) or request type 16 
(retrieve index by key). 


DU09 




1 1 . Request must foUow request type 09. 
No intervening calls to DU via the 
langua^ interface or to DLZPRDLI 
are permitted. 






12. Processing is done by the compression 
routine. 






13. If error, issue message DLZ636I or 
DLZ615I and branch to SCD 
ABEND routine. 


DUOD 
DLZPRERR 




14. For each segment to be unloaded, 
determine if it extends the range of 
blocks being unloaded. If it does, 
perform this processing step. 


DLIOE 





Extended Description 
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DLZPRDLI - DLI Services 



Extended Description 



15. 



^ 16. 



> 17. 



If request code equals OF, get 
'EOD' address. 



If request code equals 10, move 
addresses of DLI blocks and 
routines to system data areas and 
set special DLI conditions. 



If request code equals 11, initialize 
before unloading a range. 



18. If request code equals 12, initialize 
after unloading a range. 



19. If request code equals 13, initialize 
before reloading a range. 



ENDRAASV 
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15. 




DLIOF 




16. 


DLI control block addresses 
are acquired by a GSCD call. 


DLIIO 






If error, issue message 
DLZ651I 


DLZPRERR 




17. 




DLIll 




18. 




DU12 





Extended Description 


Routine 


Label 









o 



c 



^^ 






o 



o 



o 



o 



%.: 



o 



Figure 2-44.14. DLI Services 
■■ INPUT aMHaBiM 



(DLZPRDLI)(Part5of5) 

PROCESS mmm 
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20. If request code equals 14, 
initialize after reloading a r 



21 . If request code equals 1 5, set 
HDAM root anchor point to 
zero after all roots chained from 
it have been unloaded. 



> 22. If request code equals 16, retrieve 
index record by key. 



23. Return to caller 



-tL 



5 
S 



^l 



DLZPRDLI - DLI Services 



Extended Description 



Extended Description 
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21 . First call for each range 
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must be preceded by 


DLI03 




request 08 for first block 


DLI15 




and anchor point. 






22. If error, issue mess^e DLZ636I 


DLI16 




or DLZ615I and branch to SCD 


IXZPRERR 




ABEND routine. 
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Figure 2-44.15. Statistical Writer (DLZPRSTW) 



Figure 2-44.16. Error Message Writer (DLZPRERR) 
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5. Return to caller. 







DLZPRSTW - Statistical Writer 
Extended Description 



Extended Description 



DLZPRSTW 

Routine Label 



2. Create unload statistics report, unload 
range report, unload distribution 
report and return to mainline 
processing. 

4. If error, issue message DLZ642I. 



COMAMSGN 



■■ PROCESS • 



1. Open SYSPR INT. 

"^2. Locate message to be printed in the 

message table. 

3. if message is not found, issue dummy 
message. 



> 4. Move message found to message buffer. 

5. If variable data, move to message buffer. 

6. Print message and close SYSPR I NT. 
[msgtflag j _2 ► 7. If ABEND is required, issue JDUMP. 

8. Return to caller. 
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DLZPRERR - Error Message Writer 
Extended Description 



Extended Description 
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Figure 2-45.1. HLPI (PL/I Online Control Flow-CICS/VS) 

CICS/VS Program Control Program User Application Program 
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Figure 2-45.2. HLPI (COBOL Online Control Flow-CICS/VS) 
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Figure 245.3. HLPI (PL/I MPS Batch Control Flow) 

Job Control Statements 



//JOBDLIPROG 



// EXEC DLZMPI00,SI2E = 
DLI ,progname,PSBname 



MPS Batch DL/I Facility 
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DLZMPRH DS OH 



(Transfer DL/I Call to DL/I Online 
System for Processing) 
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(Load User Application Program) 
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HLPI Interface Routine (Batch/MPS Batch) 
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(Convert HLPI Call to DL/I Call) 
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Figure 2-45.4. HLPI (COBOL MPS Batch Control Flow) 
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HLPI Interface Routine (Batch/MPS Batch) 
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(Convert HLPI Call to DL/I Call) 
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Figure 2-45.5. HLPi (PL/I Batch Control Flow) 
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HLPI Interface Routine (Batch/MPS Batch) 
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(Handle HLPI IN IT Call First Time) 

DLZEIPB1 

(Convert HLPI Call to DL/I Call) 




(Issue DL/I Call) 
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(Handle Errors) 
BR 14 



Figure 2-45.6. HLPI (COBOL Batch Control Flow) 

Job Control Statements User Application Program 
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Figure 2-46.1. DL/I Batch/MPS EXEC Interface (initialization Routine) (DLZEIPBO) 



Figure 2-46.2. DL/I Batch/MPS EXEC interface (Control Block Initialization) (DLZEIPBO) 



■I ^ 1. Get address of EXEC DL/i argument 

list. 



Location 20 



Program 
Request 
Handler 

Point 



> 2. Get address of user DIB. 



3. Get COM REG address. 



^ 4. Get address of DL/I program request 
handler. 



5. Get address of EIP parameter list. 
> 6. Get address of system DIB. 



7. Go to Step 1, Control Block 
Initialization. 



DLZEIPBO - DL/I Batch/MPS EXEC Interface (Initialization Routine) 



Extended Description 



1. Address of the HLPI parameter list is 
passed to this program in register I . 

5. Address of the EIP parameter list is 
located 4 bytes in front of entry 
point for the DL/I program request 




DLZEIPI 



Extended Description 


Routine 


Label 









1. 2 ^ 4. If storage request is unsuccessful, go to 

' ' Step 1, Figi 



|aRG0FLG3 






1. If system DIB is available, go to Step 1, 
Figure 2-46.3. 

2. Calculate storage required for system 
DIB. 

3. Acquire storage for the system DIB. 



Step 1, Figure 2-46.5. 
5. Save system DIB address. 



6. Initialize system DIB with DIB ID. 



> 7. Save PCS address list in system DIB. 



8. Calculate number of PCBs and save 
count in system DIB. 



9. Calculate storage required for the path 
header control blocks. 



10. Acquire storage for path header 
control blocks. 

1 1 . If storage request is unsuccessful, go to 
Step 1,2-46.5. 



12. Save address of path header control 
blocks in system DIB. 



>- 13. Set PL/I indicator if application 
program is written in PL/I. 



I DIBPATHP"! 



I EIPFLAG ~| - 



DLZEIPBO - DL/I Batch/MPS EXEC interface (Control Block Initialization) 



Extended Description 



Routine Label 



Extended Description 



Routine Label 



3. VSE GETVIS issued. 




EIPSTART 


4. Return code is in register 1 5. 






5. Acquired storage address is returned 
in register 1. 






8. Scan is made dovm the PCB list. 




PCBLOOP 


9. Number of PCBs X length of one 
path header control block. 




PCBLEND 



10. VSE GETVIS issued. 

1 1 . Return code is in register 1 5. 

1 2. Required storage address is 
returned in register 1 . 

13. Bit APPLPLI is set in field 
ARG0FLG3. 
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I ARGOFNCD I 



^ k 1. If system DIB is destroyed, go to Step 

1, Figure 2-46.4. 



2. If current call is not an initialization 
call, go to Step 1, Figure 2-46.7. 



3. Save current user DIB in system DIB. 



^ 4. Restore caller's registers. 
5. Return to caller. 



Figure 2-46.3. DL/I Batch/MPS EXEC Interface (Call Determination Routine) (DLZEIPBO) 
■■ INPUT I pi PROCESS 

DLZSDIB 



Figure 2-46.4. DL/I Batch/MPS EXEC Interface (ABEND Routine) (DLZEIPBO) 



DLZEIPBO — DL/I Batch/MPS EXEC Interface (Call Determination Routine) 
Extended Description Routine Label 



1 . The first eight bytes of the system 
DIB are checked for 'DLZSDIB'. 








. : ► 3- Get address of DL/I message module. 



> 1. Set up parameter list for message DLZ037I. 



2. Set Register 13 with register save area 
address. 



4. Call DL/I message module to issue 
message. 



5. Get address of DL/I ABEND module. 



6. Exit DL/I ABEND module to abnormally 
terminate the task. 
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DLZEIPBO - DL/I Batch/MPS EXEC Interface (ABEND Routine) 
Extended Description Routine Label 



Extended Description 



Routine Label 



1 . Message parameter list is composed 
of the message number, status code 
'TN', and failing statement number. 

2. 

4. Batch = ERRORMSG 
MPS = DLZMMSGX 

5. Batch = DLZ ABEND 
MPS = DLZMABNX 




DIBABEND 
ABEXIT 
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Figure 2-46.5. DL/I Batch/MPS EXEC Interface (Storage Failure Routine) (DLZEiPBO) 



Figure 2-46.6. DL/I Batch/MPS EXEC Interface (Load Failure Routine) (DLZEIPBO) 
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1. Set failing macro ID in message para- 
meter list. 



> 2. Get return code passback. 



3. Translate the return code to printable 
characters. 



4. Set translated return code in message 
parameter list. 



5. Set message number in parameter 
list for DLZ038I. 



P INPUT I 



DLZEIPBO - DL/I Batch/MPS EXEC Interface {Storage Failure Routine) 
Extended Description Routine Label 



Extended Descripti 



1. Failure on GETVIS. 

2. 




STRABEND 
ABENDFX 




>- 



- ► 1. if return code is not PHASE NOT 

FOUND, go to Step 3. 



2. Set up to issue message DLZ011I. 



3. Set failing macro ID in message 
parameter list for DLZ038I. 



P PROCESS ■ 



DLZEIPBO - DL/I Batch/MPS EXEC Interface (Load Failure Routine) 
Extended Description Routine La 



Routine Label 



1. PHASE NOT FOUND return 
code = X'14' 

3. FaUure on CDLOAD. 




LOADFAIL 
GETFAIL 
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Figure 2-46.7. DL/I Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) (DLZEIPBO) 
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2. Get address of module DLZEIPB1 
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3. Load module DLZEIPB1. 

^ 4. If failure on load, go to Step 1 , 
Figure 2-46.6. 

5 Save entrv txsint address for DLZEIPB1 




1 


h 




R1 




*** 


1 


] 














6. Restore caller's register save area 
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DLZEIPBO - DL/I Batch/MPS EXEC Interface (DLZEIPB1 Exit Routine) 



Extended Description 




Label 


1. 




GETFNCAL 


2. 




LOADEIP 


3. VSECDLOAD issued. 






5. Entry point address of DLZEIPBl 






returned in register 1 . 






6. Control will be returned directly to 






the caller by DLZEIPBl. 







Extended Description 



Routine Label 
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Figure 2-47. DL/i Batch/MPS EXEC interface (Overview) (DLZEIPB1) (Part 1 of 2) 



Figure 2-47. DL/i Batch/IVIPS EXEC interface (Overview) (DLZEiPBI) (Part 2 of 2) 



1. Call Determination Routine. 
(See Figure 2-47.1) 

2. PCB Processing Routine. 
(See Figure 2-47.2) 

3. Segment Length Verification. 
(See Figure 2-47.3) 

4. Segment/Offset Lengtii Verification. 
(See Figure 2-47.4) 

5. Replace/Get Path Processing. 
(See Figure 2-47.5) 

6. Acquire SSA Storage. 
(See Figure 2-47.6) 

7. Load Call Check Routine. 
(See Figure 2-47.7) 

8. Command Code Processing. 
(See Figure 2-47.8) 

9. Field Qualification Routine. 
(See Figure 2-47.9) 

10. SSA Appendage Processing. 
(See Figure 2-47.10) 

11. Calculate iOAREASize. 
(See Figure 2-47.11) 

12. Single iOAREA Processing. 
(See Figure 2-47.12) 



13. Path Segment Length Verification. 
(See Figure 2-47.13) 

14. Get EiP Common IOAREA. 
(See Figure 2-47.14) 

15. Build EiP Common iOAREA. 
(See Figure 247.15) 

16. SCHD, TERM, and CHKP Processing. 
(See Figure 247.16) 

17. DL/i Program Request Handier 
interface. 

(See Figure 2-47.17) 

18. DL/i Return interface. 
(See Figure 2-47.18) 

19. Get Path Call Processing. 
(See Figure 2-47.19) 

20. Variable Length Segment Check. 
(See Figure 2-47.20) 

21. ABEND Routine. 
(See Figure 2-47.21) 

22. Storage Management Error Routine. 
(See Figure 2-47.22) 
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Extended Description 
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Extended Descriptton Routine Laliel 
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Figure 2-47.1. Call Determination Routine (DLZEIPBI) 
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Figure 2-47.2. PCB Processing Routine (DLZEIPBI) 



1. Initialize task register. 



> 2. Save HLPI parameter list pointer and 
caller's register save area address. 



I^ 3. Get address of user DIB and save it in 
system DIB. 

4. Clear user DIB. 



5. Set address of DL/I parameter count ii 
DL/I call parameter list. 






' 6. If not a data base call, go to Step 1 , 
Figure 2-47.16. 



' 7. If not first HLPI internal call, go to 
Stepi, Figure 2-47.3. 



' 8. If lOAREA specified for this call, go to 
Step 1, Figure 2-47.2. 



9. Set user DIB with AB status code. 



10. Set KEYFEEDBACK if specified. 



Figure 
2-47 
Step 22 



I DIBRBKWPJ 



i DIBCNTAD I 



> \ DIBSTAT ] 



I DIBKFBA/T] 



DLZEIPBI - DL/I Batch/MPS EXEC Interface 



Extended Description 



Extended Description 



2. 

4. User DIB set to binary zeroes 
except for verison. 

6. Data base calls as defined here are 
get, insert, replace, delete, and 
load. 




DLZEIPO 
GETFNCAI 



7. The first call for an EXEC DLI 
statement passed is actually the 

call for the object statement. Refers 
to the first internal call within one 
EXEC DLI. 

8. Bit CCINFROM on in byte 
ARGOCCOD. 

9. AB status code=statement 10 ARE A 
required for object segment. 







} > 2. If key feedback is not requested go to 

Step 8. 



3. Set key feedback flag. 
^ 4. Save user key feedback area address. 



p PROCESS ■ 



1 . Reset key feedback flags and area/ 
length fields. 



5. If key feedback length is not provided, 
go to Step 8. 



6. Set key feedback length flag. 

7. Save user key feedback area length. 



8. Reset necessary fields in system DIB. 



; ^ 9. Get PCB number specified for this call. 

10. If PCB number is zero, negative value, 
or greater than the number of PCB for 
the PSB, set TP status code and go to 
Stepi, Figure 2-47.21. 



1 1 . Save current PCB number in system 
DIB. 



12. Get PCB address for this call. 



13. Store PCB address in DL/I call 
parameter list. 



14. Update DL/I call parameter count to 
include the function call and PCB 
address. 
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Figure 
2-47 
Step 3 



> DLZSDIB 



DIBSFLAG 
DIBKFBAA 
DIBKFBLL 



t Extended Description 


Routine 


Label 


1. 




KFBCHK 


2 . Bit 1 in ARGOOPTl is set by the 
CICS/VS translator to indicate 
KEYFEEDBACK. 

3. 






4. 

5 . Bit in ARGOOPTl is set by the 
CICS/VS translator to indicate 
FEEDBACKLEN. 









Extended Description 


Routine 


Label 




6. 

7. 
8. 

12. 


On the first HLPI call for each EXEC 
DLI statement the path count, cur- 
parameter count are set to binary 
zeroes and the DL/I function<aU is 
set in the DL/I call parameter list. 

Using the PCB number, index into 
the PCB list for the current PCB 
address. 




FRSTIOOK 
SETPCBPR 
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Figure 2-47.3. Segment Length Verification (DLZEIPB1) 



I ARGOCCODI 



> 1. If data is not to be transferred, go to 






Step 22, Figure 2-47.4. 




2. 


Update data transfer count and save in 
the system DIB. 








► 3. 


If this is a variable length segment, go to 
Step 1, Figure 2-47.4. 




► 4. 


Step 22, Figure 2-47.4. 




> 5. 


Get segment length. 




6. 


If segment length is zero or a negative 
value, set V2 status code. Go to Step 1, 
Figure 2-47.21. 


1 

Step 19 
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Extended Description 


Routine 


Label 


1. Bit CCINFROM on in byte ARGOCCOD. 




CHKTRANS 


2. A count is kept for each call that has 






requested data transfer for the EXEC 






DLI statement. 






3. Bit OPTVAR on in byte ARGOSOPT. 






4. Bit OPTSEGL on in byte ARGOSOPT. 




FXSGSIZE 


5. Field HLPILIOA contains a pointer 






to the segment length. 







Extended Description 


Routine 


Label 
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Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1) (Part 1 of 3) 



I hlpisioaH 



2-47.3 I 



1 . Get address of the segment 10 AR E A 
address. 



^2. If offset is not specified, go to Step 13. 



>3. Get offset value. 



4. If offset value is zero or a negative value, 
set up V5 status code and go to Step 1, 
Figure 2-47.21. 



5. If maximum statement length is not 
specified, go to Step 11. 



^ 6. Get maximum segment length. 

7. If maximum segment length is zero or a 
negative value, set V2 status code and go 
to Step 1, Figure 2-47.21. 

8. If offset value is greater than segment 
length, set V5 status code and to to Step 
1, Figure 2-47.21. 
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Extended Description 



1. 

2. Bit OPTOFF not on in byte 
ARGOSOPT. 

3. Field HLPIOFST contains a pointer 
to the OFFSET value. This value is 
the length of the concatenated key 
plus the length of the intersection 
data (If any). 

6. Field HLPILIOA contains a pointer 
to the segment length. 




VRSGSIZE 



Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1) (Part 2 of 3) 

m INPUT MMaiBH-iii—M^-iaw p PROCESS ■— 1^— -i»^-»— — ■ 












1 argofncdI 





9. if this is not a get call, go to Step 12. 
10. Get segment length and go to Step 19. 



2 ^ 1 1 . If this is a get call, set V2 status code 
^■^ and go to Step 1 , Figure 2-47.21 , 

12. Compute length of the segment and go 
to Step 15. 



13. If this is a get call, go to Step 4, 
Figure 2-47.3. 

14. Get length of variable length segment. 

15. If segment length is greater than the 
maximum length supported, set V4 
status code and go to Step 1, 
Figure 2-47.21. 



16. If maximum segment length is not 
specified on HLPI call, go to Step 19. 



17. Get maximum segment length. 

18. If segment length specified in lOAREA 
is greater than maximum segment length, 
set V4 status code and go to Step 1, 
Figure 2-47.21. 
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Extended Description Routine Label 



9. This check is made for all get type 
caU ON, GU, and GNP. 






11. 




VGETCALL 


12. This length includes the concatenated 
key, intersection data, and the segment. 




VRSGCON 


13. 




NOFFSET 


14. This length is in the first two bytes of 
the segment lOAREA. 






15. 




MAXCHECK 


16. Bit OPTSEGL not on in field 
ARGOSOFT. 






17. Field HLPILIOA contains a pointer to 
maximum segment length. 







i 



Extended Description 


Routine 


Label 
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to Figure 2-47.4. Segment/Offset Length Verification (DLZEIPB1 ) (Part 3 of 3) 
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DLZSDIB 












1 DIBPSIZE 1 








DLZARGO 








Iargosopt 1 









DLZARGO 








[argofncd 1 





















Ihlpisioa 1 


^ 











19. Get current length required for lOAREA. 



20. Update current required lOAREA length 
with this segment length. 



21. Save updated required lOAREA length. 



22. If segment name is specified go to Step 
1, Figure 2-47.5. 



23. If call is not a get next type, set AH 
status code and go to Step 1, Figure 
2-47.21. 



24. Set segment lOAREA address in DL/I 
call parameter list. 
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Extended Description 



Extended Description 



Routine Label 



19. 

22. Bit OPTSEGM on in field ARGOSOFT. 




SETSGSIZ 
NOTRMNSF 
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Figure 247.5. Replace/Get Path Processing (DLZEIPB1) (Part 1 of 3) 



. I^ 1. Do calculations to get the correct path 

header control block for current PCB. 



lARGOFNCD 



mt PROCESS ■ 



> 2. Get path SSA appendage pointer. 



3. If path SSA appendage does not exist 
or if previous call was not a get path 
call, go to Step 1, Figure 2-47.6. 



4. Reset get path call indicator in system 
DIB. 



^ 5. If this is not a replace call go to Step 

1, Figure 2-47.6, 



. ■;: ^ 6. If this is not the first HLPI call for the 

DLI EXEC statement, go to Step 9. 



7. Reset system DIB with previous get 
path call information. 



Idibtotn 





Figure 2-47.5 


. Replace/Get Path Processing (DLZEIPB1) {Part 2 of 3) 








DLZHLPIL 


r^. 


: 


appendages for the get path call. 
^ 9. Get current HLPI call segment name. 

^ 1 1 . If SSA entry was previously processed, 
set AC status code and go to Step 1, 
Figure 2-47.21. 




. DLZSSA 1 




' >I J 1 




DLZSSAX 




DLZSSAX 


1 


1 1 


1' 1 






DLZSSAX 










Ihlpisegn I - 






i 


















IsSASEGNM 1 " 








DLZSSAX 










ISSAXFLAG 1 ■ 




DLZARGO 




1 1 




1 2. Set SSA processed indicator. -^ 


' ;S|SSAXFLAG| II 




^ 13. If path is not to be transferred for 

this call, go to Step 1, Figure 2-47.12. 

14. If data was not transferred on previous 
get path call, go to Step 21. 

length, go to Step 18. 




1 1 












Iargoccod 1 








DLZSSAX 










JSSAXFLAG 1 








DLZARGO 










Iargosopt 1 







s. 

i 
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uExtended Description 



Extended Description 



1. Cunent PCB number-1 x length of the 
path header control block. 

4. Bit DIBGPATH set ON in field 
DIBSFLAG. 

6. If the previous call was a get path call 
and current call is a replace call and 
this is the first HLPI call for the DLI 
EXEC statement, the SSAs and SSA 
appendages are reconstructed based 
on the get path call. 




STARTSSA 




Extended Description 



8. SSAs are reconstructed with segment 
name, n command code, and blank 
delimiter. Uses SSA extension. 




SSALOOP 


9. HLPISEGN contains a pointer to the 
segment name. 




SEGNCHK 


10. 




SEGLOOP 


11. Bit SSAXPROC not set in field 
SSAXFLAG. 




SSAFOUND 


12. Bit SSAXPROC set ON in field 
SSAXFLAG. This is done to ensure 
duplicate segment names are not 
specified in current call. 




SSAOK 


13. Bit CCINFROM not on in field 
ARGOCCON. 






14. Bit SSAXDATT not on in field 
SSAXFLAG. 






1 5 . Bit OPTVAR not on in field 
ARGOSOFT. 







Extended Description 


Routine 


Label 
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f^ Figure 2-47.5. Replace/Get Path Processing {DLZEIPB1 ) {Part 3 of 3) 



I ssaxflag] 



Ihlpilioa I 



(SSALIOA I 



, 16. If variable length segment was specified 
on previous get path call, go to Step 1, 
Figure 2-47.8. 



17. Go to Figure 2-47.21. 

18. If variable length segment was specified 
on previous call, go to Figure 2-47.21. 



^ 19. Get address of segment length. 



.20. If replace lengths are equal go to Step 1, 
Figure 2-47.8. 

21. Set TO status code in user DIB. 

22. Go to Step 1, Figure 247.21. 





1 DIBSTAT J 
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Extended Description 



Extended Description 



16. BitSSAVARLoninbyteSSAFLAG. 

18. 

19. HLPIUOA contains a pointer to the 
segment length. 

21. Status code TO' indicates replace/ 
get path calls inconsistent. 




SSANOTV 
ERRORTO 
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Figure 2-47.6. Acquire SSA Storage (DLZEIPB1) 



Figure 2-47.7. Load Call Check Routine (DLZEIPB1) 



I 

9 



o 



I 



I ARGORELN I ■ 



I ARGOTOTN ] " ► 



I ARGosoPT ~j ■ ^ ► 6. If there is no qualification on the SSA, 

"■ go to Step 8. 



y 



1 . If this is not the first call for the EXEC 
DLI statement, go to Step 3. 



2. Get the total number of calls in the 
command. 

3. Move the segment name to the user DIB. 

4. Decrease the calls by one. 

5. Get the entry point for the SSA. 



^ 7. Build the SSA with the boolean 
^^ qualification for all fields. 



8. Get storage, if necessary, for the 
SSA extension; if not necessary, 
go to Step 10. 

9. Go to Step 11. 

10. Check the old SSA size compared to 
the new SSA size. Issue a FREEVIS 
if the new SSA is smaller. 



T 2 ^ 11. Save the size of the SSA and if error on 



GETVIS. go to Step 1, Figure 247.22. 
^ Save SSA address. 



^ Move the segment name to the SSA. 
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SSA Extension 



JDIBPARMx"! 



V^ I SSASEGNM I 



Extended Description 


Routine 


Label 


1 . Relative call number in field 
ARGORELN is one. 




SSANPATH 


2 . The first HLPI call for the EXEC 
DLI statement is for the object 
segment. 






3. 




SUBTWO 



Extended Description 



5. 

7 . Calculate the length of the SSA. 
8. 
10. 




SUBONE 
SSASIZNG 
SSASIZED 
CHKSSASZ 



■■ PROCESS ■ 



1. If this is not a load call, go to Figure 
2-47.8. 

2. Get EIP parameter list address. 

3. If this is an MPS environment, set up 
AD status code and go to Figure 
2-47.21. 



> 4. Get address of PCB. 



5. If PROCOPT not load, set up TP 
status code and go to Step 1, Figure 
2-47.21. 

6. Move blank delimiter to SSA. 
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Extended Description 



1. Function code not equal to X'18'. 

2. The EIP parameter list address is 
stored four bytes in front of the 
entry point of the DLI program 
request handler. 

4. 

5. PCB processing option must be 
'L' or 'LS'. 

6. 




PCBCHECK 
PROCOK 
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Figure 2-47.8. Command Code Processing (DLZEIPB1) (Part 1 of 3) 



Figure 2-47.8. Command Code Processing (DLZEIPBI) (Part 2 of 3) 





DLZARGO 
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1 argofncdI 


1 




DLZARGO 






1 argoccodI 




DLZARGO 








g 


1 ARGOFNCD | 






K> 


DLZARGO 










1 ARGOCCOD 1 








DLZARGO 










1 ARGOCCOD 1 







1. Set command code indicator in SSA. 



2. Set for null command code. 

3. If this is not a replace call, go to Step (>. 



4. If data to be transferred for this call, go t 
Step 1, 2-47.9. 



5. Set 'N' command code in SSA. 



• — ~~ 7 * 6. If this is not an insert call, go to step 15. 



7. If data is not to be transferred, go to 
Step 9. 



8. Set 'D' command code in i 



9. If first was not specified for this call, go 
to Step 12. 



DLZSSA 


1 


IISSAASTRK 1 


r 


DLZSSA 


1 


Jl 1 SSACMND 1 


r ' 


DLZSSA 


1 


^ 1 SSACMND 1 


1 


DLZSSA 




S 1 SSACMND ) 







ARGOFNCD 



10 C<1+ 'C onn.man#l «/wla In CCA 






11. 


Go to Step 1, Figure 2-47.9. 




>12. 

13. 
14. 


If last was not specified, go to Step 1, 
Figure 2-47.9. 






Go to Step 1, Figure 2-47.9. 




>15. 


If this is not a get call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 




>''■ 


If locked not specified, go to Step 18. 




17 






>18. 


if data is not to be transferred, go to 
Step 21. 




19. 

> 


If this is object segment, go to Step 21. 





■ OUTPUT — 
DLZSSA 
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Extended Description 


Routine 


Label 


1 . Command code indicator is an 
astrisk(*). 




CONTSSA 


2. Null command codes are 
dashes (-). 






3. Replace call code equals X'14'. 






4. Bit CCINFROM on in byte 
ARGOCCOD. 






5. 'N' command code indicates that 
this segment is not to be 
replaced. 






6. Function code is not equal to X'l 2'. 




CKCCISRT 


7. Bit CCINFROM not on in byte 
ARGOCCOD. 






8. 'D' indicates multiple insert path 
call. 






9. Bit CCFIRST not on in byte 
ARGOCCOD. 







Extended Description 


Routine 


Label 









Extended Description 



Routine Label 



Extended Description 



Routine Label 



10. 'F' indicates start with the first 
occurrance of this segment type 
to satisfy this level of call. 

12. Bit CCLAST not on is field 
ARGOCCOD. 

13. 'L' indicates use last occurance 
of segment type to satisfy this 
level of call. 

1 5. Function code is not in range of 
X'lO' and X'OA'. 

16. Bit CCLOCKED not on in byte 
ARGOCCOD. 

1 7. 'QA' indicates to lock segment(s) 
returned to prevent modification 
by another task. 




CKCCLSTI 
CKCCGO 
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Figure 2-47.8. Command Code Processing (DLZEIPBI) (Part 3 of 3) 
INPUT ■■M-«ii»~— ^^ ■■ PROCESS ^— — — ^— » 



20. Set 'D' command code in SSA. — 

] ; ^ 21. If first not specified in call, go to Step 24. 



22. Set 'F' command code in SSA. 

23. Go to Step 1 , Figure 2-47.9. 



24. If last not specified, go to Step 1 , 
Figure 2-47.9. 



25. Set 'L' command code in SSA. 



I- OUTPUT - 
DLZSSA 



C^ ISSACMND I 



^ JSSACMND 



Stepi 
Figure 
2-47.9 
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Extended Description Routine Label 



Extended Description 



Routine Label 



21. 

24. 
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I 



I 



a 
r 

5 

o 

< 



^. 



g 



Figure 247.9. Field Qualification Routine (DLZEIPB1) 



INPUT ■» 


DLZARGO 






1 argosoptI 



I hlpifldTT 



I hlpilfldI 



1. If where is specified, go to Step 4. 



2. Set blank delimiter in SSA. 

3. Go to Step 1, Figure 247.10. 

4. Set left paren in SSA. 



> 5. Move field name and relational 
operators into the SSA. 



]■ — ■-; 



6. If field length is not specified, set up V^3 
status code and go to Step 1, Figure 
247.21. 



^ 7. Get field values and the value lengths. 

8. If field length is zero or a negative value, 
set up V3 status code and go to Step 1, 
Figure 247.21. 



9. Move the field values and loop through 
the qualifications to the SSA. 

10. Move the right parenthesis into the SS/^. 



I ssafldnm) 



1 
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Extended Description 



Routine Label 



Extended Description 



1. BitOPTWHEREsetoninbyte 
ARGOSOPT. 




FIELDCHK 


2. Blank indicates unquaHfied SSA. 






4. Left paren indicates qualified SSA. 




QUALSSA 


5. Field HLPIFLDN has a pointer to 
the field name and HLPIOPER 
has a pointer to the relational 
operators. 






6. Bit OPTFLDL not on in byte 
ARGOSOPT. 






7. Field HLPIFLDV is a pointer to the 
field value and HLPILFLD is a 
pointer to the field value length. 




FLDLNOK 


9. Loop through the boolean 
qualifications. 




FLDLOOP 



10. Right paren is delimiter for 
qualification of SSA. 
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Figure 2-47.10. SSA Appendage Processing (DLZEIPB1) (Part 1 of 2) 



I ARGOCCOD*] 



1. Update DL/I parameter count to 
reflect this SSA entry. 



2. If data is not to be transferred, go to 
Stepi, Figure 2-47.11. 



> 3. Get segment lOAREA address. 



4. Save segment lOAREA address in SSA 
appendage and set data transfer indicator. 



5. If fixed length segment, go to Step 13. 



6. Set variable length segment indicator 
in SSA appendage. 



7. If offset is not specified, go to Step 12. 



> 8. Set offset in SSA 



9. If this is a get call, go to Step 13. 
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Routine 


Label 


1. 




BMPSSA 


2. Bit CCINFROM not on in byte 
ARGOCCOD. 






3. Field HLPISIOA contains the 
address of the segment I/O area. 






4. Bit SSADATAT indicates data transfer 
in the SSA appendage. 






6. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 




VARSEGL 


7. Bit OPTOFF not on in byte 
ARGOSOPT. 






8. HLPIOFST contains a pointer to the 
offset. 







Extended Description 



I OUTPUT — 

DLZSDIB 



I DIBCOUNT I 



I SSAIOA "1 



I SSAFLAG i 



^ I SSAFLAG n 



I SSASGOFF I 



Figure 2-47.10. SSA Appendage Processing (DLZEIPB1) (Part 2 of 2) 
fB INPUT ^■■M>ai»ia>-M>^ r PROCESS 




I argofncd"! ► 12. If this is not a get call, go to Step 15. 



I ARGOSOPT I 



10. Compute the length of the concaten- 
ated key, intersection data, and 
destination parent. 

11. Go to Step 16. 



- > 13. If segment length is not specified, go 
^ to Step 1, Figure 2-47.1 1. 



^ 14. Get pointer to segment length. 

15. Get segment length. 

16. Save segment length in SSA appendage. 



DLZEIPB1 - DL/I Batch/MPS Interface 
Extended Description 



Routine Label 



12. 

13. Bit OPTSEGL not on in byte 
ARGOSOPT. 

14. HLPILIOA contains a pointer to the 
segment length. 

15. 

16. 




FIXSEGL 
FIXSEG 

SETSEGLN 
SETLNCIS 
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Figure 2-47.1 1. Calculate lOAREA Size 

p INPUT I 



|argototn~] 



Idibsflag""! ■ 



IargofncdH 



jdibprcnT" 



ISSALIOA 



(DLZEIPB1) 

r PROCESS mm 



Figure 2-47.12. Single lOAREA Processing (DLZEiPBI) 



1. If this is not the last HLPI call for the 
EXEC DLI statement, go to Step 6, 
Figure 247.20. 



2. If the previous call was not a get path 
call, go to Step 1, Figure 2-47.12. 



3. If current call is not a replace call, go 
to Step 1, Figure 2-47.12. 



> 4. Reset DLI parameter count to that of 
the previous get path call minus one. 



5. Calculate the length required for the 
EIP common lOAREA for this call. 



6. Save required EIP common lOAREA 
size. 



Step 1 
Figure 
2-47.14 



I DIBCOUNf] 



m INPUT I 



Idibsflag I ■ ^ ► 2. If previous call was not a get path call, 

go to Step 6. 



|argofncd"| " ► 3. If this is not a delete call, go to Step 6. 



■■ PROCESS ■ 



1. If EIP common lOAREA is required, go 
to Step 1, Figure 2-47.13. 



> 4. Set previous get path call EIP common 
lOAREA address in the DL/I parameter 
list. 

5. Go to Step 8. 



^ 6. Search for associated SSA. 



> 7. Set the segment lOAREA address 
in DL/I parameter list. 



8. Update DL/I parameter count to 
include the lOAREA. 



Step 1 
Figure 
2-47.17 
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Extended Description 



Extended Description 



1. ARGORELN contains the relative 
number of this call and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 

2. Bit DIBGPATH call not on in byte 
DIBSFLAG. 

5. A scan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 




ANYMORE 
PROCNEXT 




Extended Description 


Routine 


Label 


1. DIBPATHC contains the number of 




GETIOARE 


lOAREAs specified for this call. 






2. Bit DIBGPATH not on in byte 






DIBSFLAG. 






3. If delete call follows a get path call, 






the lOAREA must reflect the way it 






was after the get path call. 






6. 




SEGISRCH 


7. 




SEGIFND 


8. 




NOSSA 



Extended Description 



Routine Label 
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Figure 2-47.13. Path Segment Length Verification (DLZEIPBI) 



IsSAlOA { 



. I 



( SSAXLI0A~1 



) ARGOFNCD 



2-47.12 !■ PROCESS ■ 



1. Get count of SSAs and first SSA entry 
for the path call. 



j 1> 2. If data is not to be transferred for this 






segment, go to Step 7. 



3. If this is not an insert call, go to Step 5. 



4. Set data transferred indicator. 



■ ; ► 5. If segment length is not specified, set 

up V2 status code and go to Step 1, 
Figure 2-47.21. 

6. Update to next SSA entry and go to 
Step 2. 



> 7. If this is not an insert call, update to 

^ next SSA entry and go to Step 2. 



8. If data was transferred on previous SSA 
entry, set up Tl status code and go to 
Step 1, Figure 2-47.21. 



9. If more SSA entries are to be processed, 
go to Step 2. 



>r 



Stepi 
2-47.14 



DLZEIPBI - DL/I Batch/MPS EXEC Interface 

Extended Description Routine Label 



1. Get set to scan SSAs. 




LENVERY 


2. 




VERFYLEN 


5. Segment length must be specified for 




CHKSEGLN 


every segment that has data transfer 






in a path call. 






7. 




CHKISRT 


8. For insert calls, data transfer must be 






specified for every segment fiom the 






first one encountered to the object 






segment. 








Figure 2-47.14. Get EIP Common lOAREA (DLZEIPB1) (Part 1 of 2) 



Figure 2-47.14. Get EIP Common lOAREA (DLZEIPB1) (Part 2 of 2) 



DLZEIPB1 - DL/I Batch/MPS EXEC Interface 



Extended Description 



Extended Description 



1 . If the storage size (DIBPSIZE) calcul- 
ated for this call is less than or equal 
to the size of the existing EIP common 
lOAREA, the existing one is used. 

4. VSE FREEVIS issued. 

5. Unsuccessful return code is in register 
15. 

6. 

8. VSE GETVIS issued. 

9. Unsuccessful return code is in register 
15. 




PROVDIOA 
GETEIPIO 



DLZSDIB 


2-47.11 
2-47.13 






,.R0 - -, 




] 


[dibiosiz 








1 

Ir — \ 

RO 


|dibpsize 1 


sufficient for this call, go to Step 11. 

^ 2. If storage was not acquired for the EIP 
common lOAREA, go to Step 6. 


















Idibio 1 








: 


4. FREE current EIP common lOAREA 
storage. 

^K^ DFHSC TYPE= FREEMAIIM 

> 5. If storage request was unsuccessful, 
go to Step 2, Figure 2-47.22. 








R15 


1 1 " 








Idibpsize 1 : 




k 6. Get current required EIP common — ' 




)>\ 1 






lOAREA size. 




DLZSDIB 




RO J 








% 7. Set current size as new EIP common — ' 




\ DIBIOSIZ 1 


r^n- 


7 


lOAREA size. 

8. Acquire storage for EIP common 
lOAREA. 

^i^ DFHSC TYPE = GETMAIN 

► 9. If storage request was unsuccessful, 
go to Step 1, Figure 2-47.22. 











R1 
1 i- 









DLZSDIB 1 


I ll 


~ 10. Save the address of the EIP common ~| 




DLZSDIB 


lOAREA. 




1 i 


DLZSDIB 




1 1 


f DIBIO 1 ., 










the DL/I parameter list. 




1 1 


DLZSDIB 


DLZSDIB 


" 


1 1 


1 DIBCOUNT 1 1 




1 vf^l DIBCOUNT 1 II 






include the lOAREA. 


Stepi 
Figure 
2-47.15 


1' ' 1 








DLZEIPB1 - DL/I Batch/MPS EXEC Interface 
Extended Description 



Routine Label 



Extended Description 



10. Address of the area processed by 
GETMAIN is returned in register 1. 

11. 




EIPIOAOK 




^^^ 



[ 
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Figure 2-47.15. Build EIP Common lOAREA (DLZEIPB1) (Part 1 of 2) 



I ARGOFNCD 



I DIBCOUNTJ 



I SSAIOA I 



fa PROCESS ■ 



1 . If this is a get call, go to Step 1 , Figure 
2-47.17. 



*" 2. Get count of SSAs and the EIP common 
10 ARE A address. 



" ^ 3. If data is not to be transferred, go to 
Step 8. 



4. Move the segment to the EIP common 
lOAREA. 



5. If all segments were moved to the EIP 
common lOAREA, go to Step 1, 
Figure 2-47.17. 

6. Update to the next SSA pointer. 

7. Go to Step 3. 

8. If the previous call was not a path call, 
go to Step 5. 



9. If this is not a replace call, go to Step 5. 



C>C 



Common Area 



Figure 2-47.15. Build EIP Common lOAREA (DLZEIPB1) (Part 2 of 2) 
m INPUT MMM«M»HBBMiB p PROCESS ^^-■■■aiBii^.^iB 



DLZEIPB1 - DL/I Batch/MPS EXEC interface 



L Extended Description 


Routine 


Label 


2. SSA count is set in register 5 and 






EIP common 10 AREA address is 






set in register 6. 






3. 




MOVELOOP 


5. 




MOVECHK 


6. 




MOVENEXT 


8. Bit DIBGPATH not on in byte 




NEXTMOVE 


DIBSFLAG. 







Extended Description 



Routine Label 



Issalioa" 



10. If data was not transferred on previous 
path call, go to Step 5. 



v^ 11. Get length of data that was transferred 
on previous call. 



12. If previous segment was a fixed length, 
go to Step 17. 



13. If offset was not specified go to Step 16. 



14. Calculate length of the destination 
parent and set length in the lOAREA. 



15. Go to Step 17. 

16. Set the length in the lOAREA. 



17. Update to next available area in EIP 
common lOAREA. 



18. Go to Step 5. 



DLZEIPB1 - DL/I Batch/MPS EXEC Interface 



I 



E3 







Label 


12. Bit SSAVARL not on in byte 






SSAFLAG. 






14. The length of a variable destination 






parent must be in the first two 






bytes of the segment that is 






after the concatenated key and 






intersection data. 






16. For variable length segments the 




MOVEVLEN 


length must appear in the first 






two bytes of the segment. 






17. 




MOVEFIX 




I 

Q 



»^ Figure 2-47.16. SCHD, TERM, and CHKP Processing (DLZEIPB1) 



Figure 2-47,17. DL/I Program Request Handler interface (DLZEIPB1) 



]■— r:> 



. - ► ^' Set up DL/I parameter list for 

'■ ~^ Checkpoint. 



L: 



L: 



If this is a schedule call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 



If this is a termination call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 

If this is not a checkpoint call, set up AD 
status code and go to Step 1, Figure 
2-47.21. 



DLZEIPB1 - DL/I Batch/MPS EXEC Interface 



Extended Description 



1. 

2. 

3. 

4. HLPICKID contains a pointer to tlie 
checkpoint ID. 




CALLSCHD 
CALLTERM 
CALLCHKP 



Extended Description 


Routine 


Label 









DLZSDIB 


2-47.12 
2-47.15 
2-47.16 


■ PRO 
1. 

2. 

3. 
4. 

> 5. 

6. 

> 7. 


If the previous call was not a get path 
call, go to Step 3. 




DLZSDIB 






1 DIBSFLAG 1 




DLZSDIB 








r 1 DIBSFLAG j 


Reset the path cal! indicators. 








DLZPATH 




? |PATHFLAG j 










R14 






V ' 






DLZSDIB 








Mdibrerc 1 








R13 






j DIBREGSV 1 ■ 




Set register save area pointer. 


1 1 


DLZSDIB 






^1 1 

R1 


Set language code for DL/I program 
request handler. 








1 DIBPARM 1 I 








l' ' 






Exit 
to 
DL/I 





DLZEIPB1 - DL/I Batch/MPS EXEC Interface 





Routine 


Label 


1 . Bit DIBGPATH not on in byte 
DIBSFLAG. 




DLIPRHEX 


2. Bits DIBGPATH and PATHCALL 
turned off. 






3. Return address at label 
DLIRETRN 




DLIEXPRH 


6. X'02' = non-PL/I HLPI program 






X'03' = PL/I HLPI program 






7. 




SETPARM 


NOTE: Batch exit to DLZPRHBO 






MPS exit to DLZMPRH 







Extended Description 
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Figure 2-47.18. DL/I Return Interface (DLZEIPB1) 



DLZSDIB 


Caller 


1. Set addressability to the user DIB. 
> 2. Get address of the PCB. 


-> 


DLZDIB 










f 




DBPCB 






Jdbpcbstc 1 


: 


? 3. Move DL/I status code, resource conflict -. 
user DIB. 

^ 4. If valid status code Is returned from 
DL/I, go to Step 1, Figure 2-47.19. 


1 

Step 

Figure 

247.21 


Idibstat | 






1 DBPCBJCB 1 


1 dibflag 1 






[dbpcbsfd J 


1 dibsegm 1 






Idbpcblev ) 


1 dibseglv ] 






DLZDIB 






Idibstat I ■ 







? 



i 



DUZEIPB1 - DL/I Batch/MPS EXEC Interface 



Extended Description 



Routine Label 



1. 

3. 

4. VaUd DL/I status codes for HLPI: 
'bb', 'GA', 'GB', 'GE', 'GK', 'II'. 
'LB', and 'NE'. 




DLIRETRN 

COMPDIB 

STCLOOP 





Routine 


Label 









I 

E3 



I 



O 
SO 
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r 

5 
o 

< 



t- 






Figure 2-47.19. Get Path Call Processing (DLZEIPBI) (Part 1 of 2) 






1 . If checkpoint or not a get call, go to Sl:ep 
6, Figure 2-47.20. 



I dibsflag"! ■ ^ * 2. If key feedback is not requested go to 

Figure 2-47.19 Step 7. 



3. Give PCB key feedback area length to 
user. 



\ PATHSSAP] 



4. If key feedback length is not specified 
or negative, go to Step 6. 

5. IVIove PCB KFBA to user area and go to ; 
Figure 2-47.19 Step 7. 

6. Set V8 status code in user DIB length \ 
and go to Figure 2-47.21. 

7. If only one 10 ARE A is required, go to 
Step 1, Figure 2-47.20. 

8. If storage is acquired for SSA path 
appendage, go to Step 13. 

9. Get required length of a path SSA 
appendage. 

-^ 10. issue GETMAIN request for storage. 

11. If request was unsuccessful, go to Step 1 , 
Figure 2-47.22. 

12. Clear storage area to binary zeros. 

13. Set path call indicator. 

14. Calculate number of SSAs for this call. 



I DIBKFBL^ 



^ [ar 



DLZEIPBI - DL/I Batch/MPS EXEC Interface 



Figure 2-47.19. Get Path Call Processing (DLZEIPBI) (Part 2 of 2) 
PROCESS Mi— .■— n.. 



Extended Description 


Routine 


Label 


1. 




DBCALLOK 


2. 






3. 






4. Truncation occurs if the actual 






length > user length. 






5 . A V8 status code is set and pro- 




ERR0RV8 


gram terminates. 






10. VSEGETVIS request issued. 






1 3 . Bit PATHCALL set on in field 




GOTSSAP 


PATHFLAG. 








I SSA FLAG I 



I SSAIOA I 



i DIBIO I 



15. If data transfer is requested for this 
segment, create a path SSA appendage. 



16. Update to next SSA. 



17. If more SSAs are to be processed, go to 
Step 10. 



> 18. Get address of EIP common lOAREA. 



19. If data transfer is requested for this 
segment, move the segment from EIP 
common lOAREA to the segment 
. lOAREA. 



20. Update to next SSA. 



21 . If more SSAs are to be processed,go to 
Step 14. 



Step 10 
2-47.20 



DLZEIPBI - DL/I Batch/MPS EXEC Interface 



>■ Extended Description 



Routine Label 



15. 
17. 
19. 
21. 




MOVESEG 
CHCKPATH 
GETLOOP 
NEXTGET 



Extended Description 


Routine 


Label 
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Figure 2-47.20. Variable Length Segment Check (DLZEIPB1) 



Figure 2-47.21. ABEND Routine (DLZEIPB1) 



i| — > 



] 1> 



1. If more than one HLPI call for the DLI 
EXEC statement, go to Step 5. 



2. If fixed length segment or if segment 
length is not specified, go to Step 10. 

3. If length of segment read is greater than 
the segment length required, set up V4 
status code and go to Step 1, Figure 
2-47.21. 



4. Go to Step 10. 



5. If data is not to be transferred, go to 
Step 8. 



6. if this is a fixed length segment, go to 
Step 10. 

7. If length of segment just read was 
greater than the segment length 
requested, set up V4 status code and go 
to Step 1, Figure 2-47.21. 

8. Update to the next SSA. 

9. If more SSAs, go to Step 1 . 



"T^ 10. Get caller's register save area. 



1 1 . Restore caller's registers. 



DLZEIPB1 - DL/I Batch/MPS EXEC Interface 
Extended Description 



Routine Label 



1. 




GETICHK 


3. 




NOFFSPEC 


5. 




lOACHK 


7. 




CHECKLEN 


8. 




UPSSA 


10. 




CALLDONE 
EIPEXIT 



Extended Description 


Routine 


Label 









Idibrbkwd I 



1. Set up DLZ037I message parameter list. 



2. Set pointer to message parameter list. 



3. Set pointer to register save area. 



4. Go to DL/I message routine to i; 
message. 



w^ 5. Get DL/I ABEND routine address. 



-w| 6. Restore caller's register save area 
pointer. 



DLZEIPB1 - DL/I Batch/MPS EXEC Interface 



Extended Description 



f- OUTPUT — 

DLZSDIB 



:>[ 



(dibmsg i 



[dibmsgrc I 



: 



DL/I 
ABEND 
BR R15 



Routine Label 



4. BATCH=ERRORMSG 
MPS=DLZMMSGX 

5. BATCH=DLZABEND 
MPS=DLZMABNX 







Extended Description 


Routine 


Label 
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Figure 2-47.22. Storage Management Error Routine (DLZEIPB1) 







R4 






H 1 


go to Step 3. 




R4 






n ' 


2. Get address of FREEVIS macro name. 




DLZSOIB 




3. Set up parameter list for message — i 
DLZ038I. 


1 

Step 2 
Figure 
2-47.21 


1 DIBMSG 1 




Idibmsgsc 1 


1 DIBMSGRC 1 







0LZEIPB1 - DL/I Batch/MPS EXEC Interface 



Extended Description 



1. Name at label GETID. 

2. Name at label FREEID. 




GETABEND 
FREABEND 



Extended Description 


Routine 


Label 
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Figure 2-48. DL/I Online EXEC Interface (OVERVIEW) (DLZEIPOO) (Part 1 of 3) 



Figure 2-48. DL/I Online EXEC Interface (OVERVIEW) (DLZEIPOO) (Part 2 of 3) 







(See Figure 248.1) 


2. 


Initial Call Processing. 




(See Figure 2-48.2) 


3. 


Acquire System DIB. 




(See Figure 2-48.3) 


4. 


SDIB Validation and Return. 




(See Figure 248.4) 


5. 


Call Determination Routine. 




(See Figure 2-48.5) 


6. 


PCB Processing Routine. 




(See Figure 248.6) 


7. 


Segment Length Verification. 




(See Figure 248.7) 


8. 


Segment/Offset Length Verification. 




(See Figure 248.8) 


9. 






(See Figure 248.9) 


10. 


Acquire SSA Storage. 




(See Figure 248.10) 


11. 


Load/Delete Call Check. 




(See Figure 248.11) 


12. 


Command Code Processing. 




(See Figure 248.12) 



13. Field Qualification Routine | 




(See Figure 248.13) 


14. 


SSA Appendage Processing. 




(See Figure 248.14) 


15. 


Calculate lOAREA Size. 




(See Figure 248.15) 


16. 


Single lOAREA Processing. 




(See Figure 248.16) 


17. 


Path Segment Length Verification. 




(See Figure 248. 17) 


18. 


Get EIP Common lOAREA. 




(See Figure 248.18) 


19. 


Build EIP Common lOAREA. 




(See Figure 248.19) 


20. 


Schedule Call Processing. 




(See Figure 248.20) 


21. 


TERM Call Processing. 




(See Figure 248.21) 


22. 


Checkpoint Call Processing. 




(See Figure 248.22) 


23. 


DL/I Program Request Handler 




Interface. 




(See Figure 248.23) 


24. 


DL/I Return Processing. 




(See Figure 248.24) 
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DLZEIPOO - DL/I Online EXEC Interface 
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Extended Description 


Routine 


Label 









Extended Description 


Routine 


Label 









Extended Description 



Routine Label 



Extended Description 



Routine Label 



I 



I 



^ 



o 

CO 



<B. 



I 






Figure 2-48. DL/i Online EXEC Interface (OVERVIEW) (DLZEiPOO) (Part 3 of 3) 



25. DL/I Psuedo ABEND Processing. 
(See Figure 2-48.25) 

26. DIB Initialization. 
(See Figure 2-48.26) 

27. Get Path Call Processing. 
(See Figure 2-48.27) 

28. Variable Length Segment Check. 
(See Figure 2-48.28) 

29. Invalid DIB Processing. 
(See Figure 2-48.29) 
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Extended Description 



Routine Label 



Extended Description 



Routine Label 
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Figure 2-48.1. Initialization (DLZEIPOO) 



m INPUT • 



Figure 248.2. Initial Call Processing (DLZEIPOO) 



iiier 

I-: 



-J I '^ 3. If this is a non-API call, go to Step 6, 

Figure 2-48.4. 



i tcasyaaJ 



I HLPIARGO~) 



> 4. Get address of CICS/VSCSA and appli- 
cation program register save area. 



5. Get HLPi parameter list address. 



1. Save caller's registers. 

2. Get address of CICSA/S inhibit flags. 



6. Set up base register. 



7. Get address of CICS/VS system TCA. 



8. Get address of the HLPI argument list. 



Step 1 
Figure 
248.2 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



Routine Label 



1 . DFHUEPAR is the CiCS/VS user 
interface block whose address 
is passed in register 1 . 

5. The HLPI parameter list address is 
in the sixth fullword of the user's 
register save area. 


1 


DLZEIPI 



Extended Description 


Routine 


Label 









I TCADLIBF I 



I TCASCNB [ 



I TCASCSA I 



14^ 
1 

L_: 
1 ' 
I 


■ PRC 
► 1. 
>2. 

>Z. 

>A. 

5. 

6. 
7. 


If this is not an initialization call, go to 
Step 1, Figure 248.5. 

If storage was acquired for the UIB and 
SDIB, go to Step 1, Figure 248.4. 

If storage was acquired for the UIB only, 
go to Step 1, Figure 248.3. 

Acquire storage for the UIB and SDIB. 




TCA 












JTCADUBA 1 




storage acquired indicators. 








1 TCADLIBF 1 








DLIUIB 












^ [uiBSDIB 1 














DLZSDIB 




1 1 




Set the ID in the system DIB. — « 


-ifo.BIO 1 II 






1 

Step 4 


1 1 







DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



1. 

2. Bits TCAUIBAQ and 
TCADIBAQ on. 

3. Bit TCAUIBAQ only is on. 

4. CICS/VS GETMAIN issued. If 
unsuccessful, the task is 
terminated. 

7. ID of 'DLZSDIB' initialized in the 
first seven bytes of the control 
block. 




EIPSTART 




I 



^> Figure 2-48.3 Acquire System DIB (DLZEIPOO) 



Figure 2-48.4. SDIB Validation and Return (DLZEIPOO) 
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1. Acquire storage for the system DIB. 



2. Save the system DIB address. 



3. Set SDIB storage acquired indicator. 



4. Set ID in system DIB. 



Step 4 
Figure 
2-48.4 



I TCADLIBFn 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



Routine Label 



1. CICS/VS GETMAIN issued. If unsuc- 
cessful, CICS/VS terminates the task. 

3. Bit TCADIBAQ set on. 

4. ID of 'DLZSDIB' initiaUzed in the 
first seven bytes of the control 
block. 




AQSDIB 



Extended Description 


Routine 


Ubel 









TCA 


Caller 


, 1. Get address of the UIB. 

y 2. Get address of the system DIB. 

► 3. If this is not the system DIB, go to 

Step 1, Figure 2-48.29. 

> 4. Get the user DIB address. 










1 TCADLIBA 1 _ 












DLIUIB 










1 UIBSDIB I I 








- 




DLZSDIB 










1 DIBIO 1 - 








DLZHLPIL 










1 HLPIDIBP 1 - 




















user DIB. 
6. Restore DFHEiP registers. 


1 

DFHEIP 



DLZEIPOO - DL/I Online EXEC Interface 
^Extended Description 



Routine Label Extended Description 




1. 

3. ID of 'DLZSDIB' must be in the 
first seven bytes of the control 
block. 

4. 

6. Returns to DFHEIP. 




DIBAVAIL 

INITEXIT 
EIPEXIT 
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Figure 2-48.5. Call Determination Routine (DLZEIPOO) (Part 1 of 2) 



Figure 2-48.5. Call Determination Routine (DLZEIPOO) (Part 2 of 2) 



I UIBSDIB 



i DIBIO I ■ 



I HLPIDIBP"! 



■■ PROCESS ■ 



vg^ 1. Get UIB address. 



V 2. Get system DIB address. 



3. If this is not the system DIB, go to 
Stepl. Figure 2-48.29. 



4. Save HLPI parameter list pointer and 
caller's register savearea address. 



5. Get address of user DIB and save it ii 
system DIB. 



6. Clear user DIB. 



7. Set address of DL/I parameter count 
in DL/I call parameter list. 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



Routine Label 



Extended Description 



1. 

4. 

6. User DIB set to binary zeroes 
except for version. 




DLZEIPO 
GETFNCAL 



DLZSDIB 






] 


JDIBHLPIA 




1 dibrbkwdI 





Idibludib I 



Routine Label 



ARGOFNCD ■ 



Idibpcbad 1 ■ > 9. If scheduling call is not issued, set TH 

status code and go to Step 5, Figure 
2-48.25. 






!■ PROCESS ■ 



8. If this is not a data base call, go to Step 1, 
Figure 248.20. 



10. If this is not the first HLPI call, go to 
Stepl, Figure 2-48.7. 



|argoccod1 ■ — "^ ► 11. If lOAREA is specified for this call, 

^ go to Step 5, Figure 2-48.6. 



12. Set AB status code in user DIB. 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



\ 



a 



Routine Label 



8. Data base calls, as defined here, are 
get, insert, replace, and delete. 

9. Scheduling call must be first DL/I 
call request. 

10. Ihe first call for an EXEC DL/I 
statement passed is actually the 
call for the object segment. 

12. AB status code equals segment 
lOAREA required for object 
segment. 








I 



Figure 248.6. PCB Processing Routine (DLZEIPOO) (Part 1 of 2) 



r 



o 
o 

r 
I. 



< 






I HLPIKFBA 



DLZARGO 








1 ARG0OPT1 1 





I HLPIKFBL I 



1 . Reset key feedback flags and area/length 
fields. 



2. If key feedback is not requested go to 
Steps. 



3. Set key feedback flag. 
^ * 4. Save user key feedback area address. 



5. If key feedback length is not provided, 
go to Step 8. 



6. Set key feedback length flag. 
> 7. Save user key feedback area length. 
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Extended Description 



Routine Label 



2. Bit 1 in ARGOOPTl is set by the 
CICS/VS translator to indicate 
KEYFEEDBACK. 



5. Bit in ARGOOPTl is set by the 
CICS/VS translator to indicate 
FEEDBACKLEN. 



OUTPUT ( 

DLZSDIB 







DIBSFLAG 




OIBKFBAA 


DIBKFBLL 











DIBSFLAG 




DIBKFBLL 







Figure 2-48.6. PCB Processing Routine (DLZEIPOO) (Part 2 of 2) 
p INPUT ■—— — — — i^ ■• PROCESS — — — 





Routine 


Label 









8. Reset necessary fields in system DIB. 
1 jj "^ 9. Get PCB number specified for this call. 



Idibdcbad 



10. If PCB number is zero, negative value, 
or greater than the number of PCB for 
the PSB, set TP status code and go to 
Step 1, Figure 2-48-25. 



11. Save current PCB number in system 
DIB. 



12. Get PCB address for this call. 



^ 13. Store PCB address in DL/I call para- 
meter list. 



14. Update DL/I call parameter count to 
include the function call and PCB 
address. 



I OUTPUT - 

DLZSDIB 



Idibpathc I 



1DIBPARM2 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



Extended Descripti 



8. On the first HLPI call for each EXEC 
DLI statement the path count, cur- 
rent required lOAREA size, and the 
DL/I parameter count are set to 
binary zeroes and the DL/I function- 
call is set in the DL/I call parameter 
Ust. 

12. Using the PCB number, index into 
the PCB list for the current PCB 
address. 




FRSTIOOK 
SETPCBPR 
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Figure 2-48.7. Segment Length Verification (DLZEIPOO) 



I argosopT^ 



ler 


^ 1. If data is not to be transferred, go to 
Step 22, Figure 248.8. 












the system DIB. 




— -; 


to Step 1, Figure 2-48.8. 




— : 


^ Step 22, Figure 2-48.8. 






^ 5. Get segment length. 

6. if segment length is zero or a negative 
value, set V2 status code. Go to Step 
1, Figure 2-48.25. 


1 

Step 19, 
248.8 
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Extended Description 


Routine 


Label 


1. Bit CCINFROM on in byte 




CHKTRANS 


ARGOCCOD. 






2. A count is kept for each call that has 






requested data transfer for the EXEC 






DLI statement. 






3. BitOPTVARoninbyte 






ARGOSOPT. 






4. BitOPTSEGLoninbyte 




FXSGSIZE 


ARGOSOPT. 






5. Field HLPILIOA contains a pointer 






to the segment length. 
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Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 1 of 3) 



Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 2 of 3) 



r INPUT I 



[PROCESS ■ 
1. Get! 
addn 



Get address of the segment lOAREA 
address. 

2. if offset is not specified, go to Step 13. 



c> 



3. Get of^t value. 

4. If offset value is zero or a negative 
value, set up V5 status code and go to 
Stepi, Figure 2-48.25. 

5. If maximum statement length is not 
specified, go to Step 11. 



6. Get maximum segment length. 

7. If maximum segment length is zero or a 
negative value, set V2 status code and go 
to Step 1, Figure 2-48.25. 

8. If offset value is greater than segment 
length, set V5 status code and go to 
Step 1, Figure 2-48.25. 



I |> 9. If this is not a get call, go to Step 12. 

10. Get segment length and go to Step 19. 



argofncd| ■ — > 



I argofncdI ■ 



I HLPILIOA^ 



1 1 . If this is a get call, set V2 status code 
and go to Step 1 , Figure 2-48.25. 

12. Compute length of the segment and go 
to Step 15. 



13. If this is a get call, go to Step 4, 
Figure 2-48.7. 

14. Get length of variable length segment. 

15. If segment length is greater than the 
maximum length supported, set V4 
status code and go to Step 1, Figure 
2-48.25. 

16. If maximum segment length is not 
specified on HLPI call, go to Step 
19. 



^ 17. Get maximum segment length. 



18. If segment length specified in lOAREA 
is greater than maximum segment 
length, set V4 status code and go to 
Stepi, Figure 2-48.25. 



DLZEIPOO - DL/r Online EXEC Interface 



DLZEIPOO - DL/I Online EXEC Interface 



Extended Description 



1. 

2. Bit OPTOFF not on in byte 
ARGOSOPT. 

3. Field HLPIOFST contains a 
pointer to the OFFSR value. 
This value is the length of the 
concatenated key plus the length of 
the intersection data (if any). 

6. Field HLPILTOA contains a 
pointer to the segment length. 




VRSGSIZE 



Extended Description 


Routine 


Label 









Extended Description 


Routine 


Label 


9. This check is made for all get type 






call GN, GU, and GNP. 






11. 




VGETCALL 


12. This length includes the concatenated 




VRSGCON 


key, intersection data, and the 






segment. 






13. 




NOFFSET 


14. This length is in the first two bytes 






of the segment lOAREA. 






15. 




MAXCHECK 


1 6. Bit OPTSFGL not on in field 






ARGOSOPT. 






17. Field HLPILIOA contains a 






pointer to maximum segment 






length. 
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Label 
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Figure 2-48.8. Segment/Offset Length Verification (DLZEIPOO) (Part 3 of 3) 



ARGOSOPT I ■ ► 



>, 19. Get current length required for 
lOAREA. 



20. Update current required 10 ARE A 
length with this segment length. 



21. Save updated required lOAREA length. 



22. If segment name is specified go to Step 
1, Figure 2-48.9. 



[argofncd"] . 2 ^ 23. If call is not a get next type, set AH 

' status code and go to Step 1, Figure 



^ 



24. Set segment lOAREA address in DL/I 
call parameter list. 
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IdIBPARM3 I 



Extended Description 



Routine Label 



19. 

22. Bit OPTSEGM on in field 
ARGOSOPT. 




SETSGSIZ 
NOTRANSF 



Extended Description 
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Label 
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Figure 2-48.9. Replace/Get Path Processing (DLZEIPOO) (Part 1 of 3) 
r PROCESS > 

Caller 



!■ INPUT 



Figure 2-48.9. Replace/Get Path Processing (DLZEIPOO) (Part 2 of 3) 
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g 


Iargofncd 1 






DLZARGO 










JARGORELN | 







1. Do calculations to get the correct path 
header control block for current PCB. 



> 2. Get path SSA appendage pointer. 



3. If path SSA appendage does not exist 
or if previous call was not a get path 
call, go to Step 1, Figure 2-48.10. 



4. Reset get path call indicator in system 
DIB. 



5. If this is not a replace call go to Step 
1, Figure 2-48.10. 



6. If this is not the first HLPI call for the 
DLI EXEC statement, go to Step 9. 



7. Reset system DIB with previous get path 
call information. 



DLZEIPOO - DL/I Online EXEC Interface 



^Extended Description 



1. Current PCB number-1 x length of the 
path header control block. 

4. Bit DIBGPATH set ON in field 
DIBSFLAG. 

6. If the previous call was a get path call 
and current call is a replace call and 
this is the first HLPI call for the DLI 
EXEC statement, the SSAs and SSA 
appendages are reconstructed based 
on the get path call. 




STARTSSA 



> I DIBSFLAG 




■ INPUT ■»> 

DLZHLPIL 


r^^^. 


: 


8. Rebuild SSA extension. 

^ 9. Reconstruct the SSAs and SSA 
appendages for the get path call. 

^ 1 2. If SSA entry was previously processed, 
set AC status code and go to Step 1, 
Figure 2-48.25. 

13. Set SSA processed indicator. 

^ 14. If path is not to be transferred for 

this call, go to Step 1, Figure 2-48.15. 

15. If data was not transferred on previous 
get path call, go to Step 21. 

^ 16. if current segment is not variable 
length, go to Step 18. 




DLZSSAX 

r' ' 






DLZSSA 




DLZSSA 










Ihlpisegn 






> 


DLZSSA 






ISSASEGNM 1 




DL2SSAX 






Issaxflag 1 




DLZARGO 




_^ 


r Issaflag 1 












I ARGOCCOD 1 




DLZSSAX 






Issaxflag | 


DLZARGO 






Iargosopt 1 
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Extended Description 



9. SSAs are reconstruced with segment 




SSALOOP 


name, a command code, and blank 






deluniter. 






10. HLPISEGN contains a pointer to the 




SEGNCHK 


segment name. 






11. 




SEGLOOP 


12. Bit SSAXPROC not set in field 




SSAFOUND 


SSAXFLAG. 







13. Bit SSAXPROC set ON in field 
SSAXFLAG. This is done to ensure 
duplicate segment names are not 
specified in current call. 

14. Bit CCINFROM not on in field 
ARGOCCON. 

15. Bit SSAXDATT not in field 
SSAXFLAG. 

16. Bit OPTVAR not on in field 
ARGOSOPT. 




SSAOK 
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Figure 248.9. Replace /Get 

INPUT ■HMMM-^ 



I 



Path Processing (DLZEIPOO) (Part 3 of 3) 
•■ PROCESS 



I SSAFLAG "I ' ► 



16. If variable length segment was specified 
" on previous get path call, go to Step 1, 

Figure 2-48.12. 

17. Go to Figure 2-48.25. 



18. If variable length segment was specified 
on previous call, go to Figure 2-48.25. 



19. Get address of segment length. 



. _2 ^ 20. If replace lengths are equal go to 
^^ Step 1, Figure 2-48.12. 



21. Set TO status code in user DIB. 

22. Go to Step 1, Figure 248.25. 
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S. 

E3 
S. 






Routine 


Ubel 


16. BitSSAVARLoninbyte 






SSAFLAG. 






18. 




SSANOTV 


19. HLPILIOA contains a pointer to the 






segment length. 






21. Status code 'TO' indicates replace/ 




ERRORTO 


get path calls inconsistent. 







Extended Description 
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Figure 2-48.10 Acquire SSA 
INPUT ■*■—>-— 



Storage (DLZEIPOO) 

r> PROCESS ■ 



Figure 2-48.1 1 . Load/Delete Call Check (DLZEIPOO) 



(argototn I 



Iargoreln I ■ - ► ^ ■ 'f *his is not the first call for the EXEC 

I 'IT ^ DL/I statement, go to Step 3. 

2. Get the total number of calls in the 
command. 

3. Move the segment name to the user 
DIB. 

4. Decrease the calls by one. 

5. Get the entry point for the SSA. 

> 6. If there is no qualification on the 

■" ^•^ SSA, go to Step 8. 



JSSAXPTR 



[tcascsa I 



7. Build the SSA with the boolean 
qualification for all fields. 



8. Get storage, if necessary, for the 
SSA extension; if not necessary, 
go to Step 10. 

9. Go to Step 11. 

10. Check the old SSA size compared 
to the new SSA size. Issue a FREEVIS 
if the new SSA is smaller. 



Itcascnb I ■ " ► ^ ^ • ^^^^ *^® 5'^® °* **^® ^^'^ ^^^ 



\> the SSA address. 



> Move the segment name to the SSA. 
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Extended Description 


Routine 


Label 


1. Relative number in field ARGORELN 
is one. 




SSANPATH 


2. The first HLPI call for the EXEC DLI 
statement is for the object segment. 






3. 




SUBTWO 



Step 1 
2-48.1 1 



'^ <■ JDIBSEGM I 



[ssasegnm I 





Routine 


Label 


5. 




SUBONE 


7. Calculate the length of the SSA. 




SSASIZNG 


8. 




SSASIZED 


10. 




CHKSSASZ 




■■ PROCESS ■ 



1. If this is a load call, set CD status code 
and go to Step 5, Figure 2-48.25. 

2. If this is not a delete call, go to Step 1, 
Figure 2-48.12. 



3. Move blank delimiter to SSA. 
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tExtended Description 



Extended Description 



Routine Label 



1. Load call is invalid in onUne 
environment. 

2. Delete call is unqualified. 
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Figure 2-48.12. Command Code Processing (DLZEIPOO) (Part 1 of 3) 



Figure 2-48.12. Command Code Processing (DLZEIPOO) (Part 2 of 3) 



P INPUT I 



Iargofncdj ■ - — — — 



lARGOCCOD I 



m PROCESS ■ 



1. Set command code indicator in SSA. 



2. Set for null command code. 



3. If this is not a replace call, go to Step 6. 



4. If data to be transferred for this call, 
go to Step 1,2-48.13. 



5. Set 'N' command code in SSA. 



Iargofncd I - ^ ^ 6. If this is not an insert call, go to 

' "T^ ^ step 15. 



7. If data is not to be transferred, go to 
Step 9. 



8. Set 'D' command code in SSA. 



9. If first was not specified for this call, 
go to Step 12. 



l-OUTPUTa 

DLZSSA 



I SSAASTRK I 



CJ[ 



I SSACMND I 
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Extended Description 


Routine 


Label 


1 . Command code indicator is an astrisk 
(*)• 




CONTSSA 


2. Null command codes are dashes (-). 






3. Replace call code equals X'14'. 






4. Bit CCINFROM on in byte 
ARGOCCOD. 






5. 'N' command code indicates that this 
segment is not to be replaced. 






6. Function code is not equal to X'12'. 




CKCCISRT 


7. Bit CCINFROM not on in byte 
ARGOCCOD. 






8. 'D' indicates multiple insert path 
call. 






9. Bit CCFIRST not on in byte 
ARGOCCOD. 








Iargofncd 



lARGOCCOD 



(argoreln I 



|argoccod| ■ — ^ 
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Extended Description 


Routine 


Label 


10. 'F' indicates start with the first 






occurrance of this segment type to 






satisfy this level of call. 






12. Bit CCLAST not on is field 




CKCCLSTI 


ARGOCCOD. 






13. 'L' indicates use last occurance of 






segment type to satisfy this level 






of call. 






15. Function code is not in range of 




CKCCGO 


X'lO' and X'OA'. 






16. Bit CCLOCKED not on in byte 






ARGOCCOD. 






17. 'Q A' indicates to lock segment(s) 






returned to prevent modification 






by another task. 







Extended Descripti 







DLZSSA 




10. Set r command code in bbA. ■ 




Issacmnd I 


11. Go to Step 1, Figure 248.13. 






^ 12. If last was not specified, go to Step 
1, Figure 248.13. 






fo ctn* '1 ' rnmmnnri rnt\p in *t^A 




DLZSSA 




► Issacmnd | 






14. Go to Step 1, Figure 2-48.13. 








15. If this is not a get call, set up AD 
status code and go to Step 1 , 
Figure 2-48.25. 






^ 16. If locked not specified, go to Step 18. 






17. Move 'QA' command code to SSA. 




DLZSSA 


> JSSACMND 1 


^ 18. If data is not to be transferred, go 
to Step 21. 






^ 19. If this is object segment, go to Step 
21. 
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Figure 2-48.12. Command Code Processing (OLZEIPOO) (Part 3 of 3) 



I -. 



20. Set 'D' command code in SSA. 

21. If first not specified in call, go 
to Step 24. 

22. Set 'F' command code in SSA. 

23. Go to Step 1, Figure 248.13. 



.2 y 24. If last not specified, go to Step 1, 
Figure 2-48.13. 



25. Set 'L' command code in SSA. 



r OUTPUT - 

OLZSSA 



JSSACIVIND I 
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Extended Description 



21. 
24. 




CKCCISTG 
CKCCLSTG 
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Figure 2-48.13. Field Qualification Routine (DLZEIPOO) 



] Tb ^ 1 . If where is specified, go to Step 4. 



JHLPIFLDN nj 



^LPIFLDV I 



2. Set blank delimiter in SSA. 

3. Go to Step 1. Figure 2-48.14. 

4. Set left paren in SSA. 



5. Move field name and relational 
operators into the SSA. 



. 2 ^ 6. If field length is not specified, set up 
V3 status code and go to Step 1 , 
Figure 2-48.25. 



^ 7. Get field values and the value lengths. 



8. If field length is zero or a negative 
value, set up V3 status code and 
go to Step 1, Figure 2-48.25. 



9. Move the field values to the SSA 
and loop through the qualification. 

10. Move the right parenthesis into the SSA. 



^ jssalparn"] 



^> Jssafldnm") 



!rnJ 



IsSAKEYFL-l-j 
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Extended Description 


Routine 


Laber 


I . Bit OPTWHERE set on in byte 
ARGOSOPT. 




FIELDCHK 


2. Blank indicates unqualified SSA. 






4. Left paren indicates qualified SSA. 




QUALSSA 


5. Field HLPIFLDN has a pointer to the 
field name and HLPIOPER has a 
pointer to the relational operators. 






6. Bit OPTFLDL not on in byte 
ARGOSOPT. 






7. Field HLPIFLDV is a pointer to the 
field value and HLPILFLD is a pointer 
to the field value length. 




FLDLNOK 


9. Loop through the boolean 
qualifications. 




FLDLOOP 


10. Right paren is delimiter for 
qualification of SSA. 









Routine 


Label 
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Extended Description 


Routine 


Ubel 


1. 




BMPSSA 


2. Bit CCINFROM not on in byte 
ARGOCCOD. 






3. Field HLPISIOA contains the 
address of the segment I/O area. 






4. Bit SSADATAT indicates data 
transfer in the SSA appendage. 






6. Bit SSAVARL in the SSA appendage 
indicates variable length segment. 




VARSEGL 


7. Bit OPTOFF not on in byte 
ARGOSOPT. 






8. HLPIOFST contains a pointer to 
the offset. 







Figure 2-48.14. 








DLZARGO 


Caller 


> 


1. Update DL/I parameter count to 
reflect this SSA entry. 

2. if data is not to be transferred, go to 
Step 1, Figure 248.15. 

3. Get segment lOAREA address. 




DLZSDIB 






^ 1 DIBCOUNT 1 












i ARGOCCOD 1 




DLZHLPIL 






JHLPISIOA 1 








DLZARGO 


4. Save segment lOAREA address in SSA -i 
indicator. 

5. If fixed length segment, go to Step 13. 


h 


( ssaioa 1 




isSAFLAG 1 


'1 


DLZSSA 




6. Set variable length segment indicator 
in SSA appendage. 

7. If offset is not specifed, go to Step 12. 

8. Set offset in SSA appendage. - 

9. If this is a get call, go to Step 13. 




JSSAFLAG 1 






DLZSSA 


1 ARGOSOPT 1 




DLZHLPIL 






1 1 


1 HLPIOFST 1 - 
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^ 1 SSASfidFF 1 1 1 
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DLZARGO 








IargofncdI 







Figure 2-48.14. SSA Appendage Processing (DLZEIPOO) (Part 2 of 2) 





Routine 


UlMl 









jARGOFNCD ( . 1 ^ 12. If this is not a get call, go to Step 15. 



10. Compute the length of the concaten- 
ated key, intersection data, and 
destination parent. 

11. Go to Step 16. 



\=s 



13. If segment length is not specified, go 
to Step 1, Figure 2-48.15. 



14. Get pointer to segment length. 

15. Get segment length. 

16. Save segment length in SSA 



I SSAXLI0A~1 



DLZEIPOO - DL/I Online Interface 
•Extended Description 



12. 

1 3. Bit OPTSEGL not on in byte 
ARGOSOPT. 

14. HLPILIOA contains a pointer to 
the segment length. 

15. 

16. 




FIXSEGL 
FIXSEG 

SETSEGLN 
SETLNCIS 



Extended Description 
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Figure 2-48.15. Calculate lOAREA Size (DLZEiPOO) 



[argoreln I 



DIBSFLAG "I 



SSALIOA 1 



1. If this is not the last HLPI call for the 
EXEC DLI statement, go to Step 6, 
Figure 2-48.4. 



2. If the previous call was not a get path 
call, go to Step 1, Figure 248.16. 



- ^ 3. If current call is not a replace call, go 
to Step 1, Figure 2-48.16. 



> 4. Reset DLI parameter count to that of the 
previous get path call minus one. 



5. Calculate the length required for the 
EIP common lOAREA for this call. 



6. Save required EIP common lOAREA 
size. 



Stepi 
Figure 
2-48.18 



Idibpsize I 
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Extended Description 



1 . ARGORELN contains the relative 
number of this caU and ARGOTOTN 
contains the total number of calls 
for the EXEC DLI statement. 

2. Bit DIBGPATH caU not on in byte 
DIBSFLAG. 

5. A scan is made of all SSAs associated 
with this call, adding the length of 
each segment that has data transfer 
required in the SSA appendage. 




ANYMORE 
PROCNEXT 




Figure 2-48.16 


Single lOAREA Processing (DLZEIPOO) 






DLZSDIB 


h 


► 1 . If EIP common lOAREA is required, 

go to Stepi, Figure 248.17. 

> 2. If previous call was not a get path call, 

go to Step 6. 

^ 3. If this is not a delete call, go to Step 6, 




DLZSDIB 






Idibpathc I 




DLZSDIB 






^IBSFLAG 1 


; 




DLZARGO 






JARGOFNCD | 




DLZSDIB 








^JIBIO 1 




S 4. set previous get path call EIP common — ■ 




1 DIBPARM3 1 




lOAREA address in the DL/I parameter 
list. 

5. Go to Step 8. 
> 6. Search for associated SSA. 


k 






DLZSSA 


DLZSDIB 






ISSAIOA 1 






' ^ /. set the seament lOAREA address In 












1 DIBPARM3 1 






DL/I parameter list. 








DLZSDIB 


1. 1 


8. Update DL/I parameter count to Z^ 


r^lDIBCOUNTl II 


include the lOAREA. 


Stepi 
Figure 
248.23 


1 1 
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Routine 


Label 


1. DIBPATHC contains the number of 




GETIOARE 


lOAREAs specified for this call. 






2. Bit DIBGPATH not on in byte 






DIBSFLAG. 






3. If delete call follows a get path call, 






the lOAREA must reflect the way 






it was after the get path call. 






6. 




SEGISRCH 


7. 




SEGIFND 


8. 




NOSSA 



Extended Desaiption 
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Figure 2-48.17. Path Segment Length Verification (DLZEIPOO) 



ISSAXIOA 



] — • ^ 3. If this is not an insert call, go to Step £>. 

4. Set data transferred indicator. 



l^ 1 . Get count of SSAs and first SSA entry' 
for the path call. 



2. If data is not to be transferred for this 
segment, go to Step 7. 



] — — • > 5. If segment length is not specified, set up 

V2 status code and go to Step 1 , 
Figure 2-48.25. 

6. Update to next SSA entry and go to 
Step 2. 



7. If this is not an insert call, update to 
next SSA entry and go to Step 2. 



3" -► 8. If data was transferred on previous SSA 

entry, set up Tl status code and go to 
Step 1, Figure 2-48.25. 



I > 9. if more SSA entries are to be processedl, 

go to Step 2. 
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Label 


1. Get set to scan SSAs. 




LENVERY 


2. 




VERFYLEN 


5. Segment length must be specified for 




CHKSEGLN 


every segment that has data transfer 






in a path call. 






7. 




CHKISRT 


8. For insert calls, data transfer must 






be specified for every segment from 






the first one encountered to the 






object segment. 








Figure 2-48.18. 


Get EIP Common lOAREA (DLZEIPOO) 
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1. If EIP common lOAREA size is 




R9 






^1 1 


JDIBIOSIZ 1 


sufficient for this call, go to Step 9. 

2. If storage was not acquired for the EIP 
common lOAREA, go to Step 5. 




TCA 




|dibsize 1 




DLZSDIB 


R9 


1 1- 








1. . 1 


JDIBIO 1 
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3. Get address of EIP common lOAREA. :^ 


' illTr/ysrsrt 1 II 






> 
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> 
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4. Free the current EIP common lOAREA. 
^■^ DFHSC TYPE = FREEMAIN 




1^ 1 


DLZSDIB 


TCA 






[. 1 


Idibpsize 1 




5. Get current required EIP common :: 








lOAREA size. 
6 Set current size as the new EIP common — 




1 1 


TCA 


R9 

r 1- 


DLZSDIB 




1 I- 




lOAREA Size. 

7. Acquire storage for the EIP common 
lOAREA. 






DLZSDIB 






1 1 


1 TCASCSA 1 : 


*—-——>* 


8. Save the address of the EIP common ^ 


' ■-. .yiniBio I II 






lOAREA. 




1' • II 


DLZSDIB 


DLZSDIB 1 






1 1 


Idibio 1 




9. Set address of the EIP common lOAREAzj 








in the DL/I parameter list. 




1 II 


DLZSDIB 


DLZSDIB 1 








j DIBCOUNT J 


i^ 


10. Update the DL/I call parameter count Z 


... . /SlIUIBCOUNI 1 II 


" ^ 




to include the lOAREA. ^^ ' 

Stepi 
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Laliei 


1. If the storage size pIBPSIZE) calcu- 
lated for this call is less than or equal 
to the size of the existing EIP common 
lOAREA, use the existing size. 




PROVDIOA 


4. CICS FREEMAIN issued. If 
unsuccessful, CICS terminates the 
task. 






5. 




GETEIPIO 


7. CICS GETMAIN issued. If 
unsuccessful, CICS terminates the 
task. 






8. Address of the area processed by 
GETMAIN is returned in the TCA. 






9. 




EIPIOAOK 
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Figure 2-48.19. Build EIP Common lOAREA (DLZEIPOO) (Part 1 of 2) 



Iargofncd I ■ ] >• 1. If this is a get call, go to Step 1. 

Figure 2-48.23. 
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I SSAIOA "t 
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r> PROCESS ■ 



Figure 248.19. Build EIP Common lOAREA (DLZEIPOO) (Part 2 of 2) 



^ 2. Get count of SSAs and the EIP common 
lOAREA address. 



3. If data is not to be transferred, go to 
Step 8. 



^ 4. Move the segment to the EIP common 
lOAREA. 



5. If all segments were moved to the EIP 
common lOAREA, go to Step 1, 
Figure 2-48.23. 

6. Update to the next SSA pointer. 

7. Go to Step 3. 

8. If the previous call was not a path 
call, go to Step 5. 



9. If this is not a replace call, go to 
Steps. 
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2. SSA count is set in register 5 and 






EIP common lOAREA address 






is set in register 6. 






3. 




MOVELOOP 


5. 




MOVECHK 


6. 




MOVENEXT 


8. Bit DIBGPATH not on in byte 




^fEXTMOVE 


DIBSFLAG. 








DLZSSAX 


z 




10. If data was not transferred on previous 
path call, go to Step 5. 

1 1. Get length of data that was transferred 
on previous call. 

12. If previous segment was a fixed length, 
go to Step 17. 

13. If offset was not specified go to Step 
16. 

14. Calculate length of the destination 
parent and set length in the lOAREA. 

15. Go to Step 17. 

16. Set the length in the lOAREA. 

17. Update to next available area in EIP 
common lOAREA. 

18. Go to Step 5. 
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12. Bit SSAVARL not on in byte 
SSAXFLAG. 

14. The length of a variable destination 
parent must be in the first two bytes 
of the segment that is after the 

data. 

16. For variable length segments the 
length must appear in the first two 
bytes of the segment. 

17. 




MOVEVLEN 
MOVEFIX 



I 

2. 

i 




figure 2-48.20. Schedule CaH Processing (DLZEIPOO) 



Figure 2-48.21. TERM Call Processing (DLZEIPOO) 
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1. If this is not a schedule call, go to Step 1, 
Figure 2-48.21. 



2. Set up parameter list for schedule call. 



Step 1 , 
2-48.23 
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I DIBPATHP I ■ ~ 



I PATHSSAPl 



1. If this is not a TERM call, go to Step 1, 
Figure 2-48.22. 



2 ^ 2. If storage was not acquired for path 

header control blocks, go to Step 7. 



PROCESS ■ 



2 ^ 3. if storage was not acquired for path SSA 

appendage, update to next path header 
control block and go to Step 2. 



4. Free path SSA Appendage storage. 

m^g^ OFHSCTYPE^FREEMAIN 

5. If another path header control block, 
go to Step 3. 

6. Free path header control block storage. 

^■■^ DFHSCTYPE^FREEMAIN 

7. Set up parameter list for TERM call. 



Stepi 
2-48.23 



Idibcount"! 
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1. Scheduling function code is X'04'. 




CALLSCHD 
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Extended Description 



Extended Description 



1. TERM function code is X'06'. 
3. 

7. 




CALLTERM 
FREELOOP 
CONTTERM 
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Figure 2-48.22. Checkpoint Call Processing (DLZEIPOO) 
INPUT I r PROCESS ■ 

Caller 



I DIBPCBAD I ' ~ ► 



1 . If this is not a checkpoint call, set up 
AD status code and go to Step 5, Figure 
2-48.25. 

2. If scheduling call not issued, set up TH 
status code and go to Step 5, Figure 
248.25. 



3. Set up parameter list for checkpoint call. 



Step 1 
2-48.23 



Figure 2-48.23. DL/I Program Request Handler Interface (DLZEIPOO) 
■■ PROCESS ^— a-^B-i^— 
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1 . Checkpoint function code is 
X'08'. 




CALLCHKP 




P INPUT 

DLZSDIB 



i dibsflagI 



. - ^ 1. If the previous call was not a get path 

call, go to Step 3. 



I DIBREGSV 



2. Reset the path call indicators. 



3. Set EIP return address for DL/I. 

4. Save EIP registers. 

5. Set register save area pointer. 



6. Set language code for DL/I program 
request handler. 

^ 7. Set pointer for DL/I call parameter 

^ list. 
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■ JPATHFLAG j 
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1 . Bit DIBGPATH not on in byte 




DLIPRHEX 


DIBSFLAG. 






2. Bits DIBGPATH and PATHCALL 






turned off. 






3. Return address at label DLIRETRN. 




DLIEXPRH 


6. X'02' = non-PL/I-HLPl program 






X'03' = PL/I HLPI program 






7. 




SETPARM 


NOTE: Batch exit to DLZPRHBO 






MPS exit to DLZMPRH 









Routine 


Label 












N> Figure 2-48-24. DL/I Return Processing (DLZEIPOO) 



Figure 2-48.25. DL/I Psuedo ABEND Processing (DLZEIPOO) 
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1 Restore CSA register 




R13 
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2. If call was not successful, go to Step 
1, Figure 2-48.25. 

3. If this is a data base call, go to Step 
1, Figure 2-48.25. 
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^ ( dibstat ] 


5. If this is not a scheduling call, go to 
Step 10. 










DLZSDIB 


Iargofncd I " 
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PSB list. 
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f 1 TCASCNB ] 


path header control blocks. 

8. Issue GETMAIN for path header 
control blocks storage. 

^■jjl^ dfhsctype^getmain 
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Figure 
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PCBLEND 
NOTSCHD 
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aller 
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If request is invalid, set pointer to status 
code table and go to Step 3. 








2. 


Set pointer to open status code table. 






— : 


► 3. 


Scan status code table for correct code. 








4. 
5. 






DLZDIB 




1 1 










If HLPI status code is valid, go to Step 1, 
Figure 2-48.27. 




1 1 








6. 
7. 






TCA 









Set UQ CiCS ABEND code — ■ 




JTCAPCAP J 




Issue message DLZ037I. 












8. 


Issue return to CICS. 

ia^ DFHPC TYPE = ABEND 
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Exit to 
CICS/VS 
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CHKSTAT 


2. 




CHKTAB8 


3. 




LOCSTATC 


5 . Valid HLPI status codes to be 






returned to the user task are: 






'00', 'GA', 'GB', 'GK', 'IF, 






'NE'.and'TG'. 








s, 

i 






O 



O 



o 



o 



o 



o 



o 



o 



Figure 2-48.26. DIB Initialization (DLZEIPOO) 
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Stepi, Figure 2-48.27. 
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2. VaUdHLPI status codes to be 
returned to the user task are: 

'W, 'GA', 'GB', 'GE', 'GK', 'IF, 
'NE', and 'TG'.. 
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Figure 2-48-27. Get Path Call Processing (DLZEIPOO) (Part 1 of 2) 
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1. 




DBCALLOK 


2. 






3. 






4. Truncation occurs if the actual 






length is greater than the user length. 






5. A V8 Status code is set and program 




ERR0RV8 


terminates. 






12. 




GOTSSAP 



DLZARGO 


Caller 


► 1. If this call is TERM, checkpoint, or not 

a get call, go to Step 6, Figure 2-48.28. 

► 2. If key feedback is not requested go to 

Figure 2-48.27, Step 7. 

► 3. Give PCB key feedback area length to — 
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DLZSDIB 


DIBSFLAG |— 
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DLZDIB 
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> 4. If key feedback length is not specified 
or negative, go to Step 6. 








DIBSFLAG 
DIBKFBLL 




DBPCB 






user key feedback 
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go to Figure 2-48.27, Step 7. 




DLZDIB 










and go to Figure 2-48.25. 

► 7. If only one lOAREA is required, go to 

Step 1, Figure 2-48.28. 

> 8. If storage was acquired for SSA 

appendage, go to Step 7. 
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y 1 TCASCNB 1 


1 


appendage. 
> 10. Issue storage request. 
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Figure 2-48.27. Get Path Call Processing (DLZEIPOO) (Part 2 of 2) 
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Extended Description 



9. If data transfer is requested for this 
segment, create a path SSA appendage. 



10. Update to next SSA. 



1 1. If more SSAs are to be processed, go 
to Step 9. 



> 12. Get address of EIP common lOAREA. 



13. If data transfer is requested for this 
segment, move the segment from EIP 
common lOAREA to the segment 
lOAREA. 



14. Update to the next SSA. 



15. If more SSAs are to be processed, 
go to Step 13. 




9. 
11. 
13. 
15. 




MOVESEG 
CHCKPATH 
GETLOOP 
NEXTGET 
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Figure 2-48.28. Variable Length Segment Check (DLZEIPOO) 
m INPUT iH— >— i-^M. 



Figure 2-48.29. Invalid DIB Processing (DLZEIPOO) 
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Iargosopt 



[SSAFLAG "} . 



^ 1 . If more than one H LPI call for the 
DLI EXEC statement, go to Step 5. 






^ 2. If fixed length segment or If segment 
length is not specified, go to Step 10. 






3. If length of segment read is greater 
than the segment length required, 
set up V4 status code and go to 
Step 1. Figure 2-48.25. 






4. Go to Step 10. 






^ 5. If data is not to be transferred, go 
to Step 8. 






to Step 10. 






requested, set up V4 status code and 
go to Step 1, Figure 2-48.25. 






8. Update to the next SSA. 






9. If more SSAs, go to Step 1. 










R13 




^1 1 1 


11. Restore caller's registers. 


Caller 





Itcascsa I 



D-- 



r PROCESS ■ 



I J^ 



1. SetTN status code. 



2. Set ABEND savearea length. 



3. Issue request for ABEND save area 
storage. 



i DFHSCTYPE=GETMAIN 



4. Set up parameter list for message 
DLZ037I. 



5. Set pointer to message parameter list. 

6. Set pointer to register save area. 

7. Issue message DLZ037i. 
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Figure 2-49. HLPI COBOL Language interface (DLZLICBL) 
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i >. 1. Save caller's registers. 

» 2. Get the communication region address. 



3. Get DL/I program request handler 
address. 



4. Get EIP parameter list. 
► 5. Get entry point of DLZE IPSO. 
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1 . Entry point for each HLPI call for 




DLZELOl 


an EXEC DLI statement. 




DLZEI02 
DLZEI03 
DLZEI04 


3. Address of DL/I program request 






handler is 16 bytes into the COMREG. 






4. Four bytes in front of the DL/I 






program request handler entry 






point is the address of the EIP 






parameter list. 
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Figure 2-50.1. HLPI PL/I (PLICALLB Interface) (DLZLIPLI) 



Figure 2-50.2. HLPI PL/I (Language Interface) (DLZLIPLI) 



m INPUT ■ 
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}- !: ► 1. Save caller's registers. 

^ 2. Get the communication region address. 



pi PROCESS ■ 



3. Get DL/I program request handler 
address. 

4. Get EiP parameter list. 

> 5. Get address of the PCB list. 

6. Restore registers 14 through 0. 

7. Restore registers 2 through 11. 

8. Get entry point to PLICALLB. 

9. Restore register 12. 



(Register 
Save Area 
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Extended Description 



1. This entry point is used only when 
the PL/I application program is using 
a non-PLI PSB. It sets up the para- 
meter list for PL/I initialization. 

3. Address of DL/I program request 
handler is the address of the EIP 
parameter list. 




DLZLIPU 





m^ PROCESS ■ 



Save caller's registers. 



> 2. Get the communications region 
address. 

3. Get the DL/I program request handler 



4. Get E I P parameter I ist. 
>. 5. Get entry point of DLZEIPBO. 
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Extended Description 



1 . Entry point for each HLPI call 
for and EXEC DLI statement. 

3. Address of DL/I program request 
handler is 16 bytes into the 
COMREG. 

4. Four bytes in front of the DL/I 
program request handler is the 
address of the EIP parameter list. 
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Figure 2-51.1. FLD Storage Manager - Batch (FLD Storage Acquisition) (DLZSTRBO) 



Figure 2-51.2. FLD Storage Manager - Batch (Psuedo ABEND Routine) (DLZSTRBO) 
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> 1. Calculate the size of the current FLD 
area. 



-^ 2. Issue request to free the current FLD 

area storage. 

3. If request was unsuccessful, go to Step 
1, Figure 2-51.2. 

4. Increment the current FLD area size 
by 128 bytes. 

5. Issue request for new FLD area storage. 



"T— ^ ► 6. If request was unsuccessful, go to Step 

-• ^ 1, Figure 2-51 .2. 



7. Set FLD area address in PST. 
> 8. Get DL/I call analyzer entry point. 
9. Restore registers. 
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Extended Description 



1. 

2. VSEFREEVIS issued. 

5. VSEGETVIS issued. 

9. Registers are restored as they 
initially were when DL/I program 
request handler first called the call 
analyzer. 




START 



^■ 1 1 





] 


|PSTFLD 






] 


Ipstflde 






t Set up parameter list for message 
DLZ038i 

2. Get address of DL/I message routine. 

3. issue message DLZ038I. 
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5. Restore registers. 
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Figure 2-52. Online FLD Storage Manager (DLZSTROO) 



I TCASCSA I 



I PSTFLD I 



1. Set addressability to the TCA, CSA, 
PST, and SCO. 



2. Get address of the current FLD area. 



2 ^ 3. Issue request to free the current FLD 

area storage. 

•■1^ DFHSC TYPE=FREEMAIN 



> 4. Increment the current FLD area size 
by 128 bytes. 



. _____^ ^ 5. Issue request for the new FLD area 
storage. 



^■■V DFHSC TYPE^GETMAIN 

6. Set FLD area address in PST. 



— '^ 7. Get DL/I call analyzer entry point. 
8. Restore registers. 



DLZSTROO - Online FLD Storage Manager 



I TCASCNB I 



I PSTFLD { 



JPSTFLDN 
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Extended Description 



Routine Label 



1. 

2. 

8. Registers are restored as they initially 
were when DL/I program request 
handler first called the call 
analyzer. 
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